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INTRODUCTION 


Are you getting bored with running packaged computer 
games? You can design your own once you learn how to 
communicate with the computer. BASIC Fun shows step-by- 
step how you can write computer programs—to solve your 
own problems, print your own pictures and invent your own 
games. | 


Special languages are used to communicate with a com- 
puter. For micro-computers, the language is called micro- 
BASIC. Each word in this language is called a programming 
statement. Computer programs are made up of programming 
statements which tell the computer what you want it to do. 


BASIC Fun teaches you micro-BASIC by giving you simple 
programs showing how different. programming statements 
‘work and where they belong in a program. First you should 
type and run the programs as they are printed in the book. 
Then see if you can make the few changes we’ve suggested, 
or use your own ideas to check your understanding of a 
programming statement. Finally; try to design your own pro- 
grams or games just using ours as a guide. 


Warning! You should use all the programs within each 
chapter—or at least read and understand those you don't 
use—before moving on to the next chapter. Following chap- 
ters build on and expand ideas learned in earlier ones—so 
work through the programs in the order they appear in the 
book. 


Above all, we hope you have as much fun exploring your 
computer’s posssibilities and inventing programs as we did in 
writing this book. 


The programs included in this text can be used on any 
computer that uses the programming language BASIC. They 
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were written in Applesoft BASIC using the Apple II Plus and 
tested on the Atari, Radio Shack TRS-80, Texas Instruments 
TI-99/4A, Hewlett-Packard HP-2000, IBM Personal Com- 
puter and the Osborn. We used a standard version of BASIC 
which is compatible with all of these computers. However, 
there are a few areas in which the computers differ. We have 
indicated in the Computer Notes following relevant programs 
any changes necessary to use the program on a particular 
computer. The-Appendix contains a more detailed discussion 
of these differences. Before you begin using the programs, 
read the Appendix, and if necessary, refer to the Program- 
mer’s reference manual for your computer. 


In order to make the programs as general as possible, we 
avoided usirig certain features included in one version of 
BASIC but left out in others. Once you become familiar with 
your own computer, you can add enhancements provided by 
your particular version of BASIC. 


If you have trouble making a program work on your com- 
puter, we recommend the following steps: 

1. Check your program line-by-line against the listing in the 
book. | 

2. Make sure you have made the changes for your com- 
puter given in the Computer Notes following each pro- 
gram. 

3. Check the BASIC manual for your computer for any 
changes required for your version of BASIC. 


If you still cannot make a program work on your computer, 
and think it is a genuine bug, send a description of the prob- 
lem and a self-addressed, stamped envelope to the publisher. 
We will respond as quickly as we can to all such correspon- 
dence. 
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1/ PRINT 


How the Computer Speaks 


This programming statement allows you 
to make the computer type out anything 
you want on the screen or paper. 


PROBLEMS 
Poem 
Flag 
Love 
Face 
Stellar 
Space 
KNOCK KNOCK 
. Riddles 


00 NI) OF WO 0's 


POEM 


You can turn your favorite poem into a computer program. Then, 
whenever you want to read your-poem, just run your program. 
Here is a poem we wrote. Put this in your computer by typing 
each line exactly as shown in the Program Listing. 
Once you have our poem working on your computer, try writing 
one of your own. 


SAMPLE RUN 


ROSES ARE RED _ 

VIOLETS ARE BLUE | 

YOU CAN LEARN TO WRITE PROGRAMS 
FOR MOST THINGS YOU DD 


PROGRAM LISTING 


100 PRINT “ROSES ARE RED” 

110 PRINT “¥IOLETS ARE BLUE” | 

120 PRINT “YOU CAN LEARN TO WRITE PROGRAMS” 
130 PRINT “FOR MOST THINGS YOU DO” 

140 END 


Note: Lines 100-130: When this. program is run, the computer 
prints out every letter between the two “ marks on each line. 
Line 140: The end statement tells the computer that it is the 
last line in, the program. This statement is required for some 
computers and optional for others. We have included it in 
this text so the programs can be used on most computers. 
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FLAG 


This program draws the American flag. Can you design a flag of 
your own and write a program that draws your flag? 


SAMPLE RUN 


oe ee oe OO RAMKAMKRAARAAMAARRAAARARAN 
ro x 
a ON KKM MAK HRMM KKH KM MRE 
re 
o 


® 


oXKMMHKNERREMHENHREMHMICIOE 
RRRXMIRKRR RRR KMRHRH MERKEN 
SHIR RHIC HIME RI 
SCHEMA HK 


sd 
sd 
Sd 
e 


xee+9 
¢e¢¢ ¢ 


PROGRAM LISTING 
100 PRINT noe ee we weRAARRARRARMMKKEKARRARARAED ” 


110 PRINT "“e ee @ *” 
120 PRINT “@ @ © © oA RKAKERARKERREERRMARRRR” 
130 PRINT “ee © @ © x" 
140 PRINT “@e @©e @ ORMMHM RH MMH ROEM MAORI 
1530 PRINT °X ae 
160 PRINT “RXXRKXRKR RRR KR 
170 PRINT “X “" 
180 PRINT "XRRXRRKRRKRAKRKAK MRR RMR KK RRR RX 
190 PRINT “x x" 


ZOO PRINT “XKRXXXXRKXM AAA AAA mm OO 
210 «€6END 


Note: Notice on the Program Listing that each line has a number. 
These tell the computer in what order the lines are to be run. 
You add a new line between two existing lines by giving the 
new line a number which falls between the existing line 
numbers. 
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LOVE 


This program prints a very familiar-word. 
You can do the same thing with your own name or initials. 


SAMPLE RUN 

x ral x *. xXx 

x x x x «4 X 

x x «© jx #8 & 

x x %* 4 #8 & 

x x & X % xXx 

x x x x x 

x x x x a 

x x 2 xX x 

XRKK x x XXX 

PROGRAM LISTING 

110 PRINT “ X x x x RRM 
120 PRINT “ X x x a “" 
130 PRINT " x x 4 x x KM 
140 PRINT ~ & x x m “" 
150 PRINT “ X x * K RKKK™ 
160 PRINT ” X x m x x x" 
170 PRINT ~ X x x x “” 
180 PRINT x aH x x x" 
190 PRINT ° XxXxx x x RAK ” 


200 END 
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FACE 


This program draws a person’s face. 
See if you can change the expression, or add some hair. 


What happens if you forget a “ when you are typing a PRINT 


statement? 


SAMPLE RUN 


PROGRAM LISTING 


130 PRINT “ o" 

140 PRINT ” ® o” 
150 PRINT ” ° 0 0 " 
160 PRINT + o" 
170 PRINT e \7 @" 
180 PRINT o" 

190 6END 
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STELLAR 


This program draws a very familiar constellation of stars. 
Try writing a program that draws a different constellation. 


SAMPLE.RUN 


THIS IS A DRAWING OF THE BIG DIPPER 


PROGRAM LISTING 


194 PRINT x" 
119 PRINT 

120 PRINT =" 

138 PRINT 4" 

144 PRINT "* + x" 

15@ PRINT 

151 PRINT 

152 PRINT 

169 PRINT a" 

165 PRINT 

166 PRINT 

170 PRINT "THIS IS A DRAWING OF THE 816 DIPPER" 
is@ END 


Note: Lines 165 and 166: The PRINT statement without any “ ” 
prints a blank line. 
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SPACE 


This program draws a U.S. rocket ship which blasts off from your 
video terminal. 
See if you can design your own model. 


SAMPLE RUN 


“N 


PROGRAM LISTING 


100 PRINT os 
110 PRINT 7 oN" 
120) PRINT ff v" 
130 PRINT 

140 PRINT 

150 PRINT 

160 PRINT “ 

170 PRINT ” 

180 PRINT 

190 PRINT a 
200 PRINT / 
210 PRINT 7 I A" 
220 PRINT oof ee 0 0 © o" 
230 FOR I=1 TO 15 

240 FOR J=1 TO 100 

250 NEXT J 

260 PRINT 

270 WEXT I 

280 END 


‘“ 
‘\ 
mt Od OS Oy Od bt me tN 
rs) 
= 
a 
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Note: This program shows you that you can put any number, letter 
or special character in a PRINT statement. 


Lines 230-270: These statements make the rocket ship blast 


off your video terminal. They are explained further in Chap- 
ter 8. 


Special credit to Chris Carlson 
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KNOCK KNOCK 


The computer can tell KNOCK KNOCK jokes. Here is one that we 


like. Can you write a program that tells-some of your favorite 
KNOCK KNOCK jokes? 


SAMPLE RUN 
KNOCK KNOCK 


WHO’S THERE? 


AMOS 


AMOS WHO? 


AMDS QUITO BIT MES 


PROGRAM LISTING 


100 
116 
120 
130 
140 
150 
166 


170 


180 
190 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 


PRINT 
END 


“KNOCK KNOCK” 

“WHO’S THERE?” 
“ROS ” 

“AMOS WHO?” 

“AMOS QUITO. BIT MEP” 
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RIDDLES 


You can put riddles into a computer program too. Here are 3 rid- 
dles. See if you can figure out the answers. 
Write a riddle program of your own using your favorite riddles. 


SAMPLE RUN 
WHICH ANSHERS GO TO EACH OF THE FOLLWING RIDDLES? 


1. WHY DID THE CHICKEN CROSS THE ROAD? 
2. HHY DIB THE FARMER CALL HIS PIG INK? | 
3. WHAT HAPPENS TO DUCKS WHEN THEY FLY UPSIDE DOWN? 


ANSNERS 


A. BECAUSE HE NEVER STAYED IN HIS PEN 
B. THEY QUACK LP 
C. TO GET TO THE OTHER SIDE 


PROGRAM LISTING 


164 PRINT “HHICH ANSWERS GO TO EACH OF THE FOLLWING 
RIDDLES?" 
116 PRINT 
128 PRINT “i. WHY DIO THE CHICKEN CROSS THE ROAD?" 
136 PRINT “2. WHY DID THE FARMER CALL HIS PIG INK?" 
14% Daun "3. WHAT HAPPENS TO OUCKS WHEN THEY FLY UPSIDE 
HN?" 
136 PRINT ———" 
169 PRINT 
176 PRINT "ANSWERS" 
PRINT . 
136 PRINT "A. BECAUSE HE NEVER STAYED IN HIS PEN” 
266 PRINT "B. THEY QUACK LIP" 


216 PRINT "C. TO GET TO THE OTHER SIDE" 
226 END 


Special credit to Paul Zuanich 
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2) LET 


Adding 2 and 2 


You use this programming statement 
|| when you want to tell the computer 
to do arithmetic. 


PROBLEMS 

. Recycle 

. Baby Sister 

. Paper Route 
. Retirement 
Moon 

Pizza 

Swim Team 
. Inheritance 

. Sleep-over 


OADBNAARWNH eH 


RECYCLE 


You and two of your friends are collecting aluminum cans. If you 
collect 200 cans, and one friend collects 140 cans and the other 
325, how many will you have altogether? This program gives you 
the answer. 

How would you change the program if you collected 300 cans? 

If another friend wanted to join your group, how would you 
change the program in order to add in the cans this friend collected? 

You can use this same program to add other things, like test 
scores, money you have earned or the number of records you own. 


SAMPLE RUN 
200 + 140 + 325 = 665 TOTAL CANS COLLECTED 


PROGRAM LISTING 


100 LET A=200 

110 LET B=140 

120 LET C=3e5 

130 LET D=A+B+C 

140 PRINT AS” + “SBS° + "SCS" = “SDS” TOTAL CANS 
COLLECTED” 

150 =6END 


Note: Lines 100-130: A, B, C and D. are numeric variables, and 
they can be set equal to any number or calculation. 


Line 130: The symbol + tells the computer to add. 


VARIABLE LIST 


Tells you what the variables.in a program are used for. 
A—Number of cans you collected 

B—Number of cans one friend collected 

C—Number of cans the other friend collected 
D—Sum of A, B, and C 
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COMPUTER NOTES 


Radio Shack TRS-80 Color BASIC —_ Does not use the word 
LET. Just leave this word out when entering lines 100-130. For 
example: 

Instead of LET A=200 

Use A=200 
Remember to leave out the word LET in all the programs in the rest 
of the text too. 
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BABY SISTER 


You are 10 years old now, and your baby sister is 2. How old will 
your sister be when you are 20? This program tells you. | 
How would you change the program if you were only 8 years old 
now? 
What if your. sister is older than you, can you still use this 
program? 


SAMPLE RUN 


IF YOU AND YOUR SISTER ARE 8 YEARS APART IN AGE 
YOUR SISTER WILL BE 12 «+ WHEN YOU ARE 20 


PROGRAM LISTING 


100 LET A=10 

110 LET S=2 

120 LET D=A-S 

130 LET B=20-D 

140 PRINT “IF YOU AND YOUR SISTER ARE “$D3" YEARS APART 
IN AGE” 

150 PRINT “YOUR SISTER WILL BE "3B5”° WHEN YOU ARE 20." 

160 END 


Note: Lines 120 and 130: The symbol tells the computer to 
subtract. 


VARIABLE LIST 
A—Your age now 
S—Your sister’s age now 


D— Years difference 
B—Your sister's age when you are 20 
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PAPER ROUTE 
You need to earn some money for Christmas presents. Your friend 
suggested that you deliver papers. If you expect to earn $20 a week 
and there are 2'/z2 months until Christmas, how much money will 
you have for presents? Use this program to get the answer: 


' Try changing the number of months or the amount of money you 
will earn each week. 


SAMPLE RUN 

IF YOU EARN $ 20 EACH WEEK 

YOU WILL HAVE $ 200 AFTER @.5 MONTHS 
PROGRAM LISTING 


100° LET W=20 

110 LET M=2.5 

120 LET T=4eMew 

130 PRINT “IF YOU EARN $"$W5" EACH WEEK" 

140 PRINT “YOU WILL HAVE $ "3T3" AFTER "3™3" MONTHS” 
150 END 


Note: Line 120: The symbol * tells the computer to multiply. 
Line 120: This program uses four weeks in a month to make 


the calculations easier. 
VARIABLE LIST 
W—Amount of money you earn each week 


M—Number of months until Christmas 
T—Total amount of money you will earn 
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RETIREMENT 


If you want to earn $900,000 before you retire and you can earn 
$50,000 a year, how many years will you have to work before you 
can retire? This program gives you the answer. 

Suppose you want to earn $1,500,000. Can you change the pro- 
gram to give you the right answer? 


SAMPLE RUN 


IF YOU EARN $ 50000. PER YEAR 
YQU WILL HAYE TO WORK FOR 18 YEARS 
IN ORDER TO EARN S$ 900000. 


PROGRAM LISTING 


100 LET A=900000. 

110 LET B=50000. 

120 LET C=A-B 

130 PRINT “IF YOU EARN $°5B5" PER YEAR” | 

140 PRINT “YOU WILL HAVE TO WORK. FOR “$Cs” YEARS” 
150 PRINT “IN ORDER TO EARN S$ “SA 

160 END 


Note: Line 120: The symbol / tells the computer to divide. 
VARIABLE LIST 
A—Total amount you want to earn 


B—Amount you can earn each year 
C—Number of years you must work 
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MOON > 


If you weigh 50 kilograms on Earth, how much would you weigh on 
the moon? This program can calculate the answer. 

What if you weigh 45 kilograms? How would you change the 
program? 


SAMPLE RUN 


I CAN CONVERT YOUR ERRTH WEIGHT TO YOUR MOON WEIGHT 
IF YOU WEIGHT SO KILOGRAMS ON ERRTH 
YOU WILL WEIGHT. 8.33333 ON THE MOON 


PROGRAM LISTING 


100 PRINT “I CRN CONVERT YOUR EARTH WEIGHT TO YOUR 
MOON WEIGHT” 

110 C=1-/6 

120 wW=50 

130 M=WeC 

140 PRINT “IF YOU WEIGH “SW3" KILOGRAMS ON ERRTH" 

150 PRINT ~*YOU WILL WEIGH "$Ms° ON THE MOON” 

160 END 


Note: Lines 110-130: M, W and C are called numeric variables, 
and they can be set equal to any number. 


VARIABLE LIST 
C—Conversion factor—Earth to moon weight 


W— Your weight on Earth 
M— Your weight on the moon 
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PIZZA 


Five of you are going out for pizza and cokes. You know that the 
pizza will cost $10 and a coke ‘will cost $1. How much money 
should you take with you to pay for your share? Use this program 
for the answer. 

Can you change the price.of the pizza or the number of friends in 
this program? 

What if you want 2 cokes? How would you change the program? 


SAMPLE RUN 

TO PRY YOUR SHARE OF THE §$.,10 PIZZA 
AND BUY A$ 1 COKE» YOU WILL NEED $ 3 
PROGRAM LISTING 


100 LET P=10 

110 LET C=1 

120 LET F=5 

130 LET M=P-F4C — 

140 PRINT "TO PAY YOUR SHARE OF THE $"3P3" PIZZA" 
150 PRINT “AND BUY A $"3C3" COKE» YOU WILL NEED $"5 
166 END 


Note: Line 130: The computer divides first, then adds. 
VARIABLE LIST 
P—Price of pizza 


C—Cost of coke 
F—Number of friends 
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SWIM TEAM 


In your workouts with the swim team, your coach has you swim 30 


laps a day. If you swim 4 days a week, how many miles will you 
swim each week? This program gives you the answer'for a’pool 25 
yards long. 

‘Can you_change the program so that you can find out how far 
you swim in a month? 

What if your pool is only 20: yards long? How would you change 
the program? 


SAMPLE RUN 


IF YOU SWIM 30 LAPS A DAY FOR 4 
YOU WILL SWIM A TOTAL OF 1.70455 


PROGRAM LISTING 


100 
110 


120. 


130 
140 
i150 
160 


170. 


LET L=30 

LET D=4 

LET N=LeD 

LET Y=NeeS 

LET M=Ye3/5280 


DAYS 
MILES 


PRINT “IF YOU SWIM "5L35" LAPS A DAY FOR “sDs” DAYS" 


PRINT “YOU WILL SWIM A TOTAL OF 
END 


“3PMs° MILES” 


Note: Line. 140: The computer multiplies first, then divides. 


VARIABLE LIST 


L—Number of laps per day 
D—Number of days per week 
N—Total number of laps per week 
Y—Total number of yards per week 
M—Number of miles per week 
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INHERITANCE 


You. have just. received the news that you are to inherit some money 
from .a.distant uncle. You will receive $200 a month until you are 
18. If you are 10-now, how much money will you inherit altogether? 
Use this program to-find out. 

if you were to receive $300 a month, how would you change this 
program? What if you are only 8 years old? 


SAMPLE RUN 


IF YOU RECEIVE $ 200 FOR THE NEXT 96 MONTHS 
YOU WILL RECEIVE $ 19200 IN TOTAL 


PROGRAM LISTING 


100 LET A=200 

110 LET Y=10 

120 LET M=(18-Y) #12 

130 LET T=M&A 

140 PRINT "IF YOU RECEIVE % "sA:" FOR THE NEXT 
“sM3" MONTHS" 

150 PRINT "YOU WILL RECIEVE $"3T3;" IN TOTAL" 

160 END 


Note: Line. 120: The ( ) tell the computer to subtract. first, then 
multiply. 


VARIABLE LIST 
A—Monthly payment 
Y—Your current age 


M—Number of months before you turn 18 
T—Total amount you will receive 
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SLEEP-OVER 


You are planning a sleep-over with 5 friends. Your mother told you 
to buy 2 hot dogs, 3: candy bars and something to read for yourself 
and each guest. You also need some soda, and you know that 1 li- 
ter of soda is.enough for 3 of you. How much food will you buy at 
the store? Use this program to.get the answer. 

What if one of your friends cannot eat candy? How would you 
change the program? 


SAMPLE RUN 


FOR A SLEEP-OVER WITH 5S FRIENDS 
YOU NEED 12 HOT DOGS, 18 CANDY BARS 
2 LITERS OF SODA AND 6 Comic BOOKS 


PROGRAM LISTING 


100 .LET A=S 

110 LET B=e2 

120 =LET C=3 

130 LET D=3 

150 LET E=cA+1> oB 

160 LET F=cA+1> eC 

170 LET G=<«A+1>-D 

180 PRINT “FOR A SLEEP-OVER WITH "SAS" FRIENDS" 

190 «PRINT “YOU NEED “SE5" HOT DOGS: “sFs" CANDY BARS” 
200 PRINT Gs” LITERS OF SODR AND “$A+15" COMIC BOOKS” 
210 «=END 


Note: Lines 150, 160 and 170: The (_ ) tell the computer to add 
first and then multiply or divide. 


VARIABLE LIST 


A—Number of guests 
B—Number of hot dogs per person 
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C—Number of candy bars per person 
D—Number of guests per 1 liter of soda 
E—Total number of hot dogs needed 
F—Total number of candy bars needed 
G—Total number of liters of soda needed 
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4); GOTO 
Showing the Way 


This programming statement allows 
you to tell the computer which 

line number to execute next. 

This lets you repeat some lines 

‘in your program over and over. 


PROBLEMS 
1. Stars 
2. Counting 
3. Power 
4. Hunt 
5. Gambler 

| 6. Family Tree 


STARS 


Write this program for, your star-gazing friends. Hit the break key 
when you are tired of seeing stars. 

Create your own universe or message by substituting your own 
lines. 


SAMPLE RUN 


e oo ad 
oe Sd sd 


® rs o 
° ooo ° ooo 


oe ® 


SEEING STARS? 
o oe ° 
oo o ° 


ad OOo ad ad 


PROGRAM LISTING 


100 REMeeTHIS. PROGRAM IS FOR STAR GAZERSee 

105 PRINT " o oo " 

110 PRINT “oe ° o" 

115 PRINT o e o o" 
120 PRINT “o o " 
125 PRINT eo" 

130 PRINT o ooo o ooo" 
135 PRINT ° " 

1460 PRINT ° o" 

145 PRINT ” oo " 
150 PRINT ° 

155 PRINT © SEEING STARS?" 

160 GOTO 1905 

165 - END 
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Note: Line 100: REM is a “remark” statement that appears in the 
listing but. will not print when the program is run. It’s the pro- 
grammer’s way of storing information for future reference. 


Line 160: GOTO 105 tells the computer to return to line 105 
and run through the program again. 


Special credit to Felicia Lo.. 


GOTO: Showing the Way ° 37 


COUNTING _ 


This program counts by 2’s. Hit your computer’s break key to stop 
the program. | - 
See if you can change it to count by 5’s. 


SAMPLE RUN 
I CAN COUNT BY ée 


PROGRAM LISTING 


100 
110 
115 
120 
125 
130 


PRINT "I CAN COUNT BY 2” 
LET A=0 

LET A=A+2 

PRINT A 

GOTO 115 

END 


Note: Line 110: Starts A at zero. 


Line 115: Adds 2 more to A each time the computer returns 
to that line. 

Line 125: Tells the computer to return to line 115 and run 
through the program again. 
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POWER 


This program prints all the powers of 2. Use your computer’s break 
key to stop the counting. 
Can you change it to print all the powers of 3 or 4? 


SAMPLE RUN 


I CAN SHOW YOU ALL THE POWERS OF 2 
2. 


OO 


PROGRAM LISTING 


100 PRINT “I CAN SHOW YOU ALL THE POWERS OF 2~ 
110 LET B=2 

115 LET A=B 

120 PRINT A 

125 LET A=Ber 

130 GOTO 120 

135 END 


Note: Can you tell what the computer is doing in line 125? Notice 
that the variable A is on both sides of the = sign. 


VARIABLE LIST 


B—Number starting with 
A—Result of calculation 


GOTO: Showing the Way ° 39 


HUNT 


This-program is a scrambled adventure. Thanks to the GOTO state- 
ment, the computer can unscramble and print out the adventure in 
a flash. 

Can you beat the computer? Design a scrambled program of your 
own for your friends to try. 


SAMPLE RUN 


YOU ARE ON AN EXPEDITION SEARCHING FOR THE LOST ARK. 

A FRIEND SHOWS YOU A LONG LOST MAP AND “X” MARKS THE 
SPOT 

WHERE IT WAS BURIED. 

YOU SEE THE “X”° ON THE MAP. IT IS BY THE TEMPLE OF THE 

ANCIENT SUN GOD. , 

YOUR CREW STARTS DIGGING. 

THEY UNCOVER A PIT FULL OF SNAKES» BUT THE ARK 

IS THERE?? 

YOU ENTER THE PIT WITH ROPES» AVOIDING THE SNAKES» 

RAND SECURE THE ROPES TO THE ARK. fA HELICOPTER SAFELY 

HOISTS IT QUT> BUT THERE ARE NO ROPES LEFT FOR YOU. 

TOUGH LUCK®® THINK OF YOUR OWN SOLUTION. 


PROGRAM LISTING 


100 PRINT “YOU ARE ON AN EXPEDITION SEARCHING FOR. THE 
LOST ARK." 

110 GOTO 260 

120 PRINT “YOUR CREW STARTS DIGGING.” 

130 GOTO eed 


140 PRINT “AND SECURE THE ROPES TO THE ARK. A HELICOPTER 


SAFELY" 
150 GOTO 280 | 
160 PRINT “WHERE IT WAS BURIED." 
170 GOTO 240 
190 PRINT “TOUGH LUCK?! THINK OF YOUR OWN SOLUTION. " 
190 GOTD 340 
200 PRINT "IS THERES!” 
210 GOTO 300 
220 -PRINT “THEY UNCOVER A PIT FULL OF SNAKES» BUT 
THE ARK" 
230 GOTD 200 
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240 PRINT "YOU SEE THE “X’ ON THE MAP. IT IS BY THE 
TEMPLE OF THE" 


e50 GOTO 320 
260 PRINT “AR FRIEND SHOWS YOU A LONG LOST MAP AND “xX” 


MARKS THE SPOT” 


270 GOTO 160 
280 PRINT “HOISTS IT OUT» BUT THERE ARE NO ROPES LEFT 
FOR YOU." 


290 GOTO 180 | 

300 PRINT “YOU ENTER THE PIT WITH ROPES» AYOIDING THE 
SNAKES » “ 

310 GOTO 140 

320 PRINT “ANCIENT SUN GOD.” 

330 GOTO 120 

340 END 


GOTO: Showing the Way ¢ 41 


GAMBLER 


If you bet $2 at the blackjack tables at 2 to 1 odds and let your win- 
nings ride, how quickly would your money grow? This program tells 
you. Use your computer’s break key to stop the program. 

How would you change the program if you wanted to start with a 
$5 bet? 


SAMPLE RUN 


THIS PROGRAM SHOWS YOU HOW A $2 BET AT THE BLACKJACK 
TRBLE 

WILL GROW IF YOU KEEP WINNING AND LET YOUR WINNINGS 
RIDE 


ROUND WINNINGS 
3 


12.5 
31.25 
79.13 
195.31 
498.28 
1220.7 
3051.76 


On DUD WY = 
PRAGRARAGBAEA 


PROGRAM LISTING 


100 PRINT "THIS PROGRAM SHOWS YOU HOW A $2 BET 
AT THE BLACKJACK TABLE" | 

105 PRINT "WILL GROW IF YOU KEEP WINNING AND 
LET YOUR WINNINGS RIDE" 

110 PRINT 

115 LET A=2 

120 LET B=0 

125 PRINT " ROUND WINNINGS" 

130 LET A=A+A+A/2 

135 LET B-B+1 

140 LET C=INT(A100+.5) /100 


1435 PRINT “ "SEs" $"3sc 
150) §6©GOTO 130 
155 END 
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Note: Line 140: This formula rounds your winnings to the nearest 
cent. 


Line 145: A ; or a; is required in a PRINT STATEMENT be- 
tween a numeric variable and the quotation marks:.A ; uses 
fewer spaces than a , . However, the spacing varies among 
computers so you may have to experiment with yours. 


GOTO: Showing the Way ° 43 


FAMILY TREE 


This program demonstrates how the number of people in-your fam- 
ily can increase. Use your -computer’s break key to stop the 
program. 

See what happens if you change the number of children each 
person has, or the time between generations. 

Write a similar program to estimate the number of offspring your 
pet could have. 


SAMPLE RUN 


THIS PROGRAM SHOWS HOW THE NUMBER OF PEOPLE IN YOUR 
FAMILY 
CAN INCREASE 


STARTING WITH 2 DESCENDENTS 
IF EACH PERSON HAS 2 CHILDREN 
WITH 20 YEARS BETWEEN GENERATIONS 
YEARS DESCENDENTS 
20 4 
40 9 
60 16 
80 32 
100 64 
120 128 
140 256 
160 512 
180 1024 
200 2048. 
220 4096 
240 3192 
260 16384 
PROGRAM LISTING 


100 PRINT “THIS PROGRAM SHOWS HOW THE NUMBER OF PEOPLE 
IN YOUR FAMILY "| 

105- PRINT “CAN INCREASE” 

115 .PRINT 

120 T=20 

125 Y=0 
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130 AR2 

135 C=2 

140 D=A 

145 PRINT “STARTING WITH “"3A3" DESCENDENTS” 
150 PRINT "IF EACH PERSON HAS “3C3" CHILDREN" 
155 PRINT “WITH "3T3" YEARS BETWEEN GENERATIONS“ 
160 PRINT . 

165 PRINT YEARS DESCENDENTS” 

170 D=Dec 

175 A=A+D 

180 Y=Y4T | 

185 PRINT "5 ¥3" “SD 

190 GOTO 170 

195 END 


VARIABLE LIST 
T—Years between generations 


A—Number of descendants in first generation 
C—Number of children per person 


GOTO: Showing the Way ° 45 


4.| INPUT 


Talking to the Computer 


This programming statement allows 
you to enter different numbers 

into your program for the same 
problem each time it is run. 


PROBLEMS 

. Conversion 

. Silicon Valley Game 
. The Great Magician 
. Batting Averages 

. Year 2000 

. Averages 

. Savings Account 

. Mileage 

. Recipe 


Oon nuh W & 


CONVERSION 


Do you know how many centimeters tall you are? Do. you know 
how many. centimeters tall your father is? You can use this program 
to convert inches to centimeters. 

You could also use a very similar program to convert pounds to 
kilograms or gallons to liters. 

To stop this program, hit the break key instead of entering a 
number. 


SAMPLE RUN 
CONVERT INCHES TO CENTIMETERS 
INCHES760 

152.4 CENTIMETERS 
INCHES7100 


254 CENTIMETERS 


PROGRAM LISTING 


100 PRINT “CONVERT INCHES TO CENTIMETERS" 
120 PRINT 

130 PRINT “INCHES"”s 

140 INPUT I 

150 LET C=le2.54¢ 

160 PRINT Cs” CENTIMETERS” 

170 GOTO 120 

180 6END 


Note: Line 140: The INPUT statement allows you to type.in differ- 
ent numeric values for | each time this statement is run. 


VARIABLE LIST 


I—Inches 
C—Centimeters 


INPUT: Talking to the Computer ° 47 


SILICON VALLEY GAME 


If you were a Silicon Valley executive and you had $200,000 to 
spend, how many Mercedes could you buy? You can. use this pro- 
gram _to get the answer. To stop the program, hit the break key in- 
stead of entering a number. 

What if you decided to economize and only spend $100,000, 
how would you change this program? 


SAMPLE:-RUN 


YOU ARE A SILICON VALLEY EXECUTIVE AND 
YOU HAVE 200:000 DOLLARS TO SPEND ON MERCEDES 
HOW MANY CAN YOU BUY? 


TYPE IN THE PRICE OF ONE MERCEDES ?T30000 
YOu COULD BUY 6 MERCEDES 
AND HAVE 20000 DOLLARS LEFT OVER. 


PROGRAM LISTING 


100 PRINT “YOU ARE A SILICON VALLEY EXECUTIVE AND" 

110 PRINT “YOU HAYE 200,000 DOLLARS TO SPEND ON 
MERCEDES” 

120 PRINT “HOW MANY CAN YOU BUY?" 

14G PRINT 

150 PRINT “TYPE IN THE PRICE OF ONE MERCEDES”; 

160 INPUT A 

170 «LET B=e00000.-A 

180 LET B=INTCB> 

190 LET T=200000.-BeAR 

e200 PRINT "YOU COULD BUY “S5B$" MERCEDES" 

219 PRINT “AND HAVE "STF" DOLLARS LEFT OVER." 

220 GOTO 140 

230 END 


Note: Line 150: The ; stops the computer from moving to the next 
line. This keeps the input on the same line as the print. 


Line 180: This statement forces B to be a whole number. 
Chapter 7 explains how the INT (Integer) function works. 
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VARIABLE LIST 
A—Price of one Mercedes 


B—Number of Mercedes you could:buy 
T—Money you have left over 


INPUT: Talking to the Computer * 49 


THE GREAT MAGICIAN 


Teach the computer a magic trick! Think of a number; follow the in- 
structions and this program will guess your number. Don’t be sur- 
prised if the computer is right every time. 

Can you figure out how it does the trick? Can you write a magic 
trick of your own? 


SAMPLE RUN 


HI» I AM. THE GREAT MAGICIAN. 

THINK OF R NUMBER: ANSWER MY GUESTION 

AND I WILL TRY TO GUESS YOUR NUMBER. 

OKs THINK OF A NUMBER- BUT DON’T TELL ME YET. 


NOWs TAKE YOUR NUMBER AND ADD S. | 
MULTIPLY THE RESULT BY 3 AND THEN SUBTRACT 3. 
MULTIPLY THIS RESULT BY 2 AND THEN ADD 4. 
WHAT DO YOU HAYE??S 

YOUR NUMBER IS 10 


PROGRAM LISTING 


100 REMeeNUMBER GUESSING GAMESe 

110. PRINT “HI> I AM THE GREAT MAGICIAN.” 

120 PRINT “THINK OF AR NUMBER>s ANSWER MY QUESTION” 
130 PRINT “AND I WILL TRY TO GUESS YOUR NUMBER.” 


140 PRINT “OKs THINK OF RA NUMBER- BUT DON’T TELL ME YET.” 


150 PRINT 

160 PRINT “NOW TAKE YOUR NUMBER AND ADD 3. DIVIDE THE 
RESULT BY 5." | a 

170 PRINT *NOW MULTIPLY BY 8S: BIVIDE BY 5S AND ADD 5S. 
SUBTRACT 1." ; 

180 PRINT “WHAT DO YOU HAVE”s 

190 INPUT B 

200 LET C=(B+1-5) 05-80e5-3 

210 PRINT “YOUR NUMBER IS “5C 

220 END 


Note: Line 200: The computer does calculations with numeric vari- 
ables. This is called a numeric expression. 
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VARIABLE LIST 


B—Result of calculations 
C—Number to guess 


INPUT: Talking to the Computer * 51 


BATTING AVERAGES 


This program calculates: batting averages. You could use it to help 
your coach pick the players for your All Star team. 


SAMPLE RUN 
CALCULATE A PLAYER’S BATTING AVERAGE 


NUMBER OF TIMES AT BAT?30 

NUMBER OF HITS 76 

NUMBER OF WALKS ?ie 

YOUR BATTING AVERAGE IS = .333333 


NUMBER OF TIMES AT BAT?15 

NUMBER OF HITS?75S 

NUMBER OF WALKS70 

YOUR BATTING AYERAGE IS = .333333 


PROGRAM LISTING 


100 PRINT "CALCULATE A PLAYER’S BATTING AVERAGE” 
120 PRINT 

130 PRINT “NUMBER OF TIMES AT BAT”: 
140 INPUT B 

150 PRINT “NUMBER OF HITS"S 

160 INPUT H , 

170 PRINT “NUMBER OF WALKS"3 

180 INPUT W 

190 LET A=H- (B-W> 

200 PRINT “YOUR BATTING AVERAGE IS "3A 
210 PRINT 

220 GOTO 130 

230 END 


Note: Notice that this program uses 3 different input statements. 
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VARIABLE LIST 


B—Number of times at bat 
H—Number of hits 
W—Number of walks 
A—Batting average 


INPUT: Talking to the Computer * 53 


YEAR 2000 


How old will you be in the year 2000? How old will your best friend 
be? You can use this program to find out. 

How would you change this program if you wanted to know your 
age in the year 2025? 


SAMPLE RUN 
FIND OUT HOW OLD YOU WILL BE IN THE YEAR. 2000 


HOW OLD ARE YOU NOW?1e2 
WHAT YEAR IS IT NOW?T1982 — . 
IN THE YEAR 2000s YOU WILL BE 30 


HOW OLD ARE YOU NOW?35 
WHAT YEAR IS IT NOW?1982 
IN THE YEAR 2000» YOU WILL BE 53 


PROGRAM LISTING 


100 PRINT “FIND OUT HOW OLD YOU WILL BE IN THE YEAR 
2000"° 

120 PRINT | 

130 PRINT "HOW OLD ARE YOU NOW" 

140 INPUT A 

150 PRINT “WHAT YEAR IS IT NOW'S. 

160 INPUT Y 

170 REMeeNDW CALCULATE THE NUMBER OF YEARS 

190 LET T=2000-Y+A 

190 PRINT “IN THE YERR 2000s -YOU WILL BE "3T 

200 GOTO 120 

210 END 


VARIABLE LIST 
A—Your age now 


Y—Current year 
T—Your age in the year 2000 
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AVERAGES 


This program calculates the average of 5 numbers. You can use it to 
calculate test averages, the average age of 5 of your friends, or the 
average temperature over 5 days. Can you think of other uses for 
this program? | 

What if you need the average of 6 numbers? Can you change this 
program to calculate your answers? 


SAMPLE RUN 


CALCULATE THE AVERAGE GF FIVE NUMBERS 
INPUT THE NUMBERS LIKE THIS lsoe@s3s495 


NUMBERS 7102 20s 30240350 
AVERAGE IS 30 


PROGRAM LISTING 


100 PRINT “CALCULATE THE AVERAGE OF FIVE NUMBERS” 
110 PRINT “INPUT THE NUMBERS LIKE THIS 122939495" 
120° PRINT —— ot 

130 PRINT “NUMBERS”; 

140 INPUT A» BsCoDs& 

150 LET T=(A+B+C+D+E> “5 

160 PRINT “AVERAGE IS “sT 

170) =PRINT 

isdo)=6END 


Note: Line 150: The (_ ) tell the computer to add all 5 numbers to- 
gether before dividing. 


Line 140: Notice that you can put in more than 1 number in 
an INPUT statement. 


VARIABLE LIST 


T—Average of 5 numbers 


INPUT: Talking to the Computer « 55 


SAVINGS ACCOUNT 
Suppose your grandmother gives you some money to save for your 
college education. If you put it in the bank at the current ‘interest 
rate, how much money will you have. when you are ready to start 
college? 

You can change the interest rate or the original amount, and see 
how much money you have. 


SAMPLE RUN 


FIND OUT HOW YOUR MONEY WILL GROW IN YOUR SAVINGS 
ACCOUNT 


ORIGINAL AMOUNT? 100 

NUMBER OF YEARS?S 

YERRLY INTEREST RATE CIN DECIMAL? 7. 055 

RFTER 5S YEARS: YOU WILL HAVE 130.7 DOLLARS 


ORIGINAL AMOUNT?7200 

NUMBER OF YEARS?10 

YEARLY INTEREST RATECIN DECIMAL) 7.15 

AFTER 10 YEARS» YOU WILL HAVE 809.11 DOLLARS 


PROGRAM LISTING. 


100 PRINT “FIND OUT HOW YOUR MONEY WILL GROW IN YOUR 
SAVINGS ACCOUNT” 

120 PRINT 

130 PRINT “ORIGINAL AMOUNT": 

140 INPUT AR . 

150 PRINT “NUMBER OF YEARS"> 

160 INPUT WN 

170 PRINT “YEARLY INTEREST RATECIN DECIMAL? “5 

180 «INPUT I 

190 LET T=Reci+I> oo N 

200 LET T=INTC(Te100+.5> 7100 

210 PRINT “AFTER “SNS” YEARS» YOU WILL HAVE “STs” 
DOLLARS” 

220 PRINT 

230 6OTOD 120 

240 «=END 
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Note: Line 190: The symbol ** tells the computer to raise a num- 
ber to a power, ie. LETX = 2°°4 tells the computer to raise 
2 to the 4th power. Please note—your computer may use a 
different symbol. Refer to your BASIC manual under 
exponentiation to find out what your computer uses. 


Line 200: This statement rounds the dollar amount to the 
nearest cent. 


VARIABLE LIST 
A—Original amount of money 
N—Number of years to save 


I— Yearly interest rate 
T—Amount of money. you have for college 
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MILEAGE 


You are planning on taking a driving vacation with your parents. 
Your father wants to know how long it will take to get to your desti- 
nation and how much money gas will cost. You. can use this pro- 
gram to get the answers. 

Can you add to the program to include food and lodging ex- 
penses for your trip? 

What would you change if you wanted to use this prograrn for a 
trip on a plane or train? 


SAMPLE RUN 


TAKING A VACATION 7 USE THIS PROGRAM TO 
CALCULATE YOUR DRIVING TIME AND 
COST OF GRSOLINE 


MILES TO TRAVEL?7500 

MILES. PER GALLON715 

PRICE PER GALLON?1.30 

MILES PER HOUR?SS 

IT WILL TAKE 9.09091 HOURS AND COST. 43.3333 
DOLLARS. 


PROGRAM LISTING 


100 PRINT "TAKING A VACATION 7 USE THIS PROGRAM TO" 
110 PRINT "CALCULATE YOUR DRIVING TIME AND" 

120 PRINT "COST OF GASOLINE” 

130 PRINT 

140 PRINT “MILES TO TRAVEL” 

150 INPUT # 

160 PRINT "MILES PER GALLON" 

170 INPUT A 

180 PRINT “PRICE PER GALLON’$ 

190 INPUT P 

200 PRINT “MILES PER HOUR"S 

210 INPUT $ 

220 LET T=MvS 

230 LET C=«M-AD oP 

240 PRINT “IT WILL TAKE "373" HOURS AND COST "$C3" 
DOLLARS." 

250 END 
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VARIABLE LIST 


M—Miles to travel 

A—Miles per gallon 

P—Price per gallon 

S—AMiles per hour 

T—Number of hours to reach destination 
C—Total cost of gasoline 
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RECIPE 


The computer can also help you out in the kitchen. Suppose you 
need to increase the size.of your favorite recipe in order to feed a 
large crowd. This program converts the amount of ingredients you 
will need. 

Use this program to make a recipe smaller also. 


SAMPLE RUN 


THIS PROGRAM ALTERS YOUR FAVORITE RECIPE. 
NUMBER THE RECIPE ORIGINALLY SERVED?74 
NUMBER NEW RECIPE TO SERVE?S 

NOW INPUT THE ORIGINAL QUANTITY OF EACH 
INGREDIENT CIN DECIMAL) 72 

NEW QUANTITY 4 


INGREDIENT CIN DECIMAL) 7.5 
NEW QUANTITY 1 


INGREDIENT CIN DECIMAL) 71.4 
NEW QUANTITY 2.8 


PROGRAM LISTING 


100 PRINT “THIS PROGRAM ALTERS YOUR FAVORITE RECIPE.” 
110 PRINT “NUMBER THE RECIPE ORIGINALLY SERVED" 
120 INPUT F 

130 PRINT “NUMBER NEW RECIPE TO SERVE"S 

140 INPUT N 

150 PRINT “NOW INPUT THE ORIGINAL QUANTITY OF EACH" 
160 PRINT “INGREDIENT CIN DECIMAL? “3 

170 INPUT I 

200 PRINT “NEW QUANTITY “SI@<N-FD 

210 PRINT 

220 GOTO 160 

230 END 


Note: Line 200: A numeric expression can be used in'a PRINT 
statement. The computer just prints the result of the 
calculation. 
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VARIABLE LIST 
F—Number of people recipe originally served 


N—Number of people the new recipe is to. serve 
I—Original quantity of an ingredient 


INPUT: Talking to the Computer * 61 


5| STRINGS 


Using Words 
with the Computer 


A string variable contains letters 
or words instead of numbers. You 
can print strings, combine them to 
form words or sentences and input 
strings just as you can numbers. 


PROBLEMS 

1. Nonsense 

2. A Man From Peru 

3. A Young Lady Named Maude 
4. Race 

5. Rhyme 

6. Names 

7. Author 


NONSENSE 


This program. prints out a message. Can you see where each word 
is stored in the program? | 

Can you write a scrambled message of your own? Which lines in 
the program must you change? 


SAMPLE RUN 
DID YOU THINK THIS WOULD PRINT NONSENSE? 


PROGRAM LISTING 


100 DIM AS(10)>BS(10) »>C$(10])>DS$(10)5E$ C10) sFS£10) 
110 LET AS="SENSE?" 

120 LET BS="DID YOU TH" 

130 LET CS="INK THIS “ 

140 LET DS="INT NON” 

150 LET ES="“LD PR“ 

160 LET FS="yOL" 

170) «6PRINT BS$CS$FSSESs DSsAS 

i180) 6END 


Note: Line 100: This is a dimension (DIM) statement. If you want a 
string variable to have more than one letter in it, you must 
use the DIM statement to save the spaces. In this case, A$ 
can have 10 letters, B$ can have 10 letters, etc. 

Lines 110-160: A$, B$, etc., are used to store letters in the 
program. These variables are called string variables. The $ 
tells the computer this is a string variable. 


COMPUTER NOTES 


TI-BASIC -Donot use the DIM statement for string variables; the 
computer saves space automatically. Therefore, take out the string 
‘variables in the DIM statements in all the programs in this text. See 
Appendix.A for a more detailed explanation. 
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A MAN FROM PERU 


You can write a limerick like this one yourself. Just substitute your 
own words for A$, B$ and C$. 

If you have another limerick you like better, try putting it on the 
computer. 


SAMPLE RUN. 


THERE WAS AN OLD MAN FROM PERU 

WHO DREAMED HE WAS EATING HIS SHOE 

HE WOKE UP IN THE NIGHTs WITH A TERRIBLE FRIGHT 
TO FIND OUT IT WAS PERFECTLY TRUE. 


PROGRAM LISTING 


160 DIM ASC10):BSC103>CS$10] 

110 LET AS="PERU” 

120 LET BS="SHOE~ 

130 LET C$="TRUE* 

140 PRINT “THERE WAS AN OLD MAN FROM “SAS 

150 PRINT “WHO DREAMED HE WAS EATING HIS “SBS 

160 PRINT “HE WOKE UP IN THE NIGHT> WITH A TERRIBLE 
; FRIGHT” 

170 PRINT “TO FIND OUT IT WAS PERFECTLY “5C$5".” 

180 END 


Note: Lines 140-170: You can use the string variables A$, B$ and 
C$ ina PRINT statement just as you used the numeric 
variables. 
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A YOUNG LADY NAMED MAUDE 


Here is. another limerick. Input your own strings for your original 
version. It is easier to do it with this program, because the program 
asks you for each word. 


SAMPLE RUN 


THIS PROGRAM WRITES A LIMERICK 
INPUT 3 WORDS THAT RHYME 

FIRST WORD?MAUDE 

SECOND WORD?7BROAD 

THIRD WORD?7O LORD 


THERE WAS A YOUNG LADY NAMED MAUDE 

WHOSE FRAME WAS EXCEEDINGLY BROAD 

TO ERT AT THE TABLEs SHE SCARCELY WAS ABLE 
BUT OUT IN THE PANTRY> 0 LORD 


PROGRAM LISTING 


100 DIM ASC2S]> BS C25) »C$Ce5) 

110 PRINT “THIS PROGRAM WRITES A LIMERICK" 
120 PRINT “INPUT 3 WORDS THAT RHYME" 

130 «PRINT “FIRST WORD" 

140 INPUT AS 

150 PRINT “SECOND WORD"S 

160 INPUT BS 

170 PRINT “THIRD WORD"s 

1380 INPUT CS 

1960 PRINT 

200 PRINT - 

210 PRINT “THERE WAS AR YOUNG LADY NAMED “SAS 
220 PRINT “WHOSE FRAME WAS EXCEEDINGLY “sBS 
230 PRINT "TO EAT AT THE TABLE» SHE SCARCELY WAS ABLE" 
240 PRINT “BUT OUT IN THE PANTRY: "sC$ 

eso END 


Note: Lines 140, 160, 180: The INPUT statement works for string 
variables as well as for numeric variables. 
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RACE 


This program tells the story of a crazy race using names, a noun and 
an adjective that you choose. . 
Can you change the program to broadcast a game or tell a story? 


SAMPLE RUN 
WELCOME TO THE SCRAMBLED SWEEPSTAKES? 


NEED A PLURAL NOUN?HUNCHBACKS 
NEED R NAMETTIM CONWAY 

NEED A SECOND NAMETSTEVE MARTIN 
NEED A THIRD NAME?ZALAN ALDA 
‘NEED AN ADJECTIVE ?FANTASTIC 


ng bed bong ed Oe 


ALL RIGHT» THE RACE IS ABOUT TO BEGIN? 
THIS 135 YOUR ANNOUNCER SPEAKING. 

THE HUNCHBACKS ARE AT THE STARTING GATE... 
AND THEY’RE OFF? 


STEVE MARTIN IS IN THE LEAD. ALAN ALDA IS NEXT: TRAILED 

BY TIM CONWAY. 

THE HUNCHBACKS ARE COMING INTO THE STRETCH. 

ALAN ALDA IS AHEAD AND STEVE MARTIN AND TIM CONWAY ARE 
MOVING UP. 

IT’S GOING TO BE CLOSE FOLKS... AND... 

STEVE MARTIN CROSSES THE WIRE FIRST! 8! 


WHAT R FANTASTIC DAY AT THE TRACK! 


PROGRAM LISTING 


150 DIM AS[25] »BS(25)+CS$ (25) » D$ (25) ES [25] 
160 PRINT | 

170 PRINT “WELCOME. TO THE SCRAMBLED SWEEPSTAKES? “ 
180 PRINT | 

200 PRINT "I NEED AR PLURAL NOUN” 

205 INPUT AS 

210. PRINT “I NEED A NAME" 

220 INPUT BS 

230 PRINT "I NEED A SECOND NAME”: 

240 INPUT CS - 

250 PRINT “I NEED A THIRD NAME”? 
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260 


350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


465 
470 
480 
490 
900 


INPUT DS 


PRINT “I NEED AN ADJECTIVES 


INPUT ES 
PRINT 


PRINT "ALL RIGHT>s THE RACE IS ABOUT TO BEGIN?” 
PRINT “THIS IS YOUR ANNDUNCER SPEAKING. ” 

PRINT “THE "SASS" ARE AT THE STARTING GATE..." 
PRINT "AND THEY’RE OFF?” 


PRINT 


PRINT CSs" IS IN THE LEAD. "“sDSs" IS NEXT» TRAILE! 
PRINT “BY “3BS;"..” 

PRINT “THE “SASS” ARE COMING INTO THE STRETCH. “ 
PRINT DS>.° IS AHEAD AND “s5CSs" AND “3 BSs~ 


ARE MOVING UP." 


PRINT “IT’S. GOING TO BE CLOSE FOLKS... AND..." 
PRINT C$" CROSSES THE WIRE FIRST?#2* 


PRINT 


PRINT “WHAT A "SESS" DAY RAT THE TRACK?” 


END 


VARIABLE LIST 


A$—Plural noun 
B$—First name 
C$—Second name 
D$—Third name 
E$— Adjective 
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RHYME 


Your teacher told you to.write.a poem, and you are struggling with 
words to rhyme with your lines. Use this program to test out various 
possibilities. | 

Can you change it to handle words starting with digraphs(th,wh) 
or blends(st,tr)? 


SAMPLE RUN 


TEST RHYMING POSSIBILITIES WITH THIS PROGRAM 
WHAT WORD ARE YOU RHYMING? 

?CAT 

NEW FIRST LETTER?H 

HAT 


NEW FIRST LETTER?B 
BAT 


NEW FIRST LETTER?S 
SAT 


PROGRAM LISTING 


100 DIM Z#(10),X#(10) ,D$(1) | 

110 PRINT "TEST RHYMING POSSIBILITIES WITH THIS 
PROGRAM" | 

120 PRINT “WHAT WORD ARE YOU RHYMING?" 

130 INPUT Z$ 

140 X$ = MIDS (7%,2) 

145 PRINT "NEW FIRST LETTER"; 

150 INPUT Ds 

170 PRINT D®sX¢ 

175 PRINT 

180 GOTO 145 

190 END 


Note: Line 140: This'statement puts Z$ into X$ starting with the 
second letter of Z$. 
The string function MID$ allows you to take out part of a 
string. The format is MID$ (string,n,m) where: 
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string—the name of the string variable 

n—the position of the first letter to use 

m—number of letters to use, m is not required if you 
want to use the. entire string. 


VARIABLE LIST. 


Z$—Contains word trying to rhyme 
D$—Contains the letter input to make a new. word | 
X$—Contains the letters in Z$ starting with the second letter 


COMPUTER NOTES 

HP-2000 BASIC ( Replace line 140 with: 

Atari BASIC 140 LET X$ = Z$(2) 

TI-BASIC Not suitable for the TI. See Appendix A. 
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NAMES 


This program makes up a child’s name by combining a first name 


and a last name. What names can you come up with? 
Use a similar program to make up names for your soccer team or 


club. 


Try changing the program so you can use it for compound words. 


SAMPLE RUN 


USE. THIS PROGRAM TO EXPERIMENT WITH NAMES 
IF PRARENT’S WITH A LAST NAME OF 7WAHL 


NAMED THEIR CHILD 7BRICK 
THE CHILD’S FULL NAME WOULD BE BRICK WAHL 


PROGRAM LISTING 


100 
110 
120 
130 
140 
150 


160. 


170 
130 
190 


DIM AS[15) »BS15} 

PRINT “USE THIS PROGRAM TO EXPERIMENT WITH NAMES” 
PRINT “IF PARENTS ‘WITH A LAST NAME. OF “3 

INPUT AS 

PRINT | 

PRINT “NAMED THEIR CHILD “3 

INPUT BS | 

PRINT “THE CHILD’S FULL NAME WOULD BE “$BS3" “5 
GOTO 140 

END 


VARIABLE LIST 


A$—Parents’ last name 
B$—Cnhild’s first name 
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AUTHOR 


Change the words in: a sentence. to alter the message or improve 
your writing. style. Change line 110 if you want to start with a differ- 
ent message. . | 

You can only have 30 characters in variable A$. What happens if 
you try to use more than 30? How would you change the program. 
if you wanted more than 30? | 


SAMPLE RUN 


SHERRI IS A PRETTY GIRL 
WHAT WORD DO YOU WANT TO CHANGE?SHERRI 
WITH WHAT?LYN 

LYN IS A PRETTY GIRL | 
WHAT WORD DO YOU WANT TO CHANGE?PRETTY 
WITH WHAT?SMART 

LYN IS A SMART GIRL 

WHAT WORD DO YOU WANT TO CHANGE?GIRL 
WITH WHAT?PERSON 

LYN IS A SMART PERSON 


PROGRAM LISTING 


100 DIM A$(30) , BS (39) ,C$(10) ,D$(10) 

110 LET At = " SHERRI IS A PRETTY GIRL” 

120 FRINT AS 

130 PRINT "WHAT WORD DO YOU WANT TO CHANGE"; 
140 INPUT CS ; 

150 REM kx CREATE A NEW STRING 

160 PRINT "WITH WHAT" 

170) «=6INPUT DS y 
180 REM KKkFIND FIRST FPOSITION IN. AS OF CS 


182 LET F = LEN (C#) 
185 LET A = LEN (AS) 
190 FOR BH = 1 TOA 


200 IF MIDS (A$,B,F) = C% THEN 240 
210 NEXT B 

220 PRINT C$" NOT IN",AS,"TRY AGAIN" 
230 GOTO 130 

240 LET HS = AS 


250 A$ = LEFTS (B$,B - 1) + DS + MIDS (BS,B + F) 
260 GOTO 120 
270 END 
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Note: Line 182: The LEN (length) statement determines the actual 
length of thé string in A$. In this case, A is set equal to the 
actual length of A$. 


Line 200: This statement determines the starting position of 
the word C$ in the sentence A$. 


Line 250: This statement changes A$ by replacing the old 
word C$ with the new word D$. 
The string function LEFT$ allows you to use only the first 
part of a string variable (the left-most letters). The format is 
LEFT$(string, n) where: 

string—name of the string variable 

n—number of letters to use. 


VARIABLE LIST 


A$—Expression starting with 

B$—Temporary variable used to hold expression in A$ while 
changes are made 

C$—Word replacing 

D$—Word adding 

A—Length of A$ 

F—Length of C$ 

B—Starting position of C$ in A$ 


COMPUTER NOTES 


HP-2000 BASIC Replace lines 190-210 with: 

190 LET B=POS(A$,C$) 
Replace line 250 with: 

250 LET A$(B,B+D) = D$ | 

255 LET A$(B+D+1) = B$ (B+F+1) 
The POS (position) function determines the 
starting position of the word C$ in the sen- 
tence A$. The format is POS(string1,string2) 


where: 
string1—name of string containing string2 
Atari BASIC Not suitable for use with 
TI-BASIC these versions of BASIC 
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6\ IF. . . THEN 


| How the Computer 
Makes Decisions 


This programming statement 
makes the computer decide which 
line number to execute next. 


PROBLEMS 
1. Tax 
2. Foreign Currency 
| 3. Mystery Code 
4. Ten Speed 
5. Time Differences 
6. Interior Decorating 
7. Driver’s Test 
8. Spelling 
9. You Are’a Detective 


TAX. 


-Sales tax is added to the price of most things you buy. In order to be 
sure you take enough money with you, use this program to find out 
exactly how much money you need to buy that rocket you’ve been 
looking at. Or, any other item you are thinking of buying. Your par- 
ents may find it useful too. | 

This program uses a tax of .065¢. If you live in a different state, 
the tax might be different. Can you change the program for a differ- 
ent tax rate? 


SAMPLE RUN 


T WILL FIGURE OUT HOW MUCH TAX WILL BE CHARGED ON AN ITEM 
AND ABD IT TO YOUR PURCHASE. JUST INPUT THE PRICE. 
INPUT “0” TO STOP. 


PRICE OF ITEM?74.98 

YOUR ITEM WILL COST $ 5.3 
PRICE OF ITEM?T16.95 
YOUR ITEM WILL COST $ 18.05 
PRICE OF ITEM?732.25 

YOUR ITEM WILL COST $ 34.35 


PROGRAM LISTING 


100 PRINT “I WILL FIGURE OUT HOW MUCH TAX WILL BE 
CHARGED ON AN ITEM” 
110 PRINT “AND ADD IT TO YOUR PURCHASE. JUST INPUT 


THE PRICE.” 
120 PRINT "INPUT “0” TO STOP.” 
130 PRINT 


140 PRINT “PRICE OF ITEM'S 

150 INPUT P 

160 IF P=0 THEN 200 

170 LET P=Pe,. 065+P 

i190 PRINT “YOUR ITEM WILL COST $"$ INT CPo100+.5>~100 
190 6GOTO 140 

200 END 
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Note: Line 160: This program uses another way to stop. If the input 
is equal to-zero, then the program skips to line 200 and 
ends. 


VARIABLE LIST 


P—Price of an item 


Special credit to Slaton Lipscomb 
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FOREIGN CURRENCY 


Are you planning a vacation to a foreign country? You may have to 
change U.S. dollars into foreign currency. Do you know what the 
exchange rate will be? If you do, you can use this program to con- 
vert the U.S. dollar amount to foreign currency. 

Can you write a program that converts foreign currency into U.S. 
dollars? , 


SAMPLE RUN 


THIS PROGRAM CAN CONVERT OUR DOLLAR TO ANY FOREIGN 
CURRENCY 
INPUT A O TO STOP PROGRAM 


INPUT THE FOREIGN EQUIVALENT OF A DOLLAR?. 99982 
INPUT THE DOLLAR AMOUNT?100 
100 U.S. DOLLARS EQUAL 99.82 IN FOREIGN CURRENCY 


INPUT THE DOLLAR AMOUNT?72500 | 
eso0g U.S. DOLLARS EQUAL 2495.5 IN FOREIGN CURRENCY 


INPUT THE DOLLAR AMOUNT?S3 
33 U.S.. DOLLARS EQUAL Se.9 IN FOREIGN CURRENCY 


PROGRAM LISTING 


100 PRINT "THIS PROGRAM CAN CONVERT OUR DOLLAR TO ANY 
FOREIGN CURRENCY" 

105 PRINT “INPUT A 0 TO STOP PROGRAM” 

110 PRINT 

115 PRINT "INPUT THE FOREIGN EQUIVALENT OF A DOLLAR" 

120 INPUT F . 

125 PRINT "INPUT THE DOLLAR AMOUNT" 

130 INPUT D - 

135 IF D=0 THEN 160 

140 LET N=FeD 

145 PRINT D3"U.S., DOLLARS EGUAL "3 INT (Ne100+.5> 71005 " 
IN FOREIGN CURRENCY” 

150 PRINT 

155 GOTO 125 

160 END 
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Note: Line 135: This is called an IF THEN statement. If the 
condition is true, the program goes to the line given. Other- 
wise, the program goes to the next line. 


VARIABLE LIST 
F—Foreign equivalent of U.S. dollar 


D—The dollar amount 
N—Foreign currency 
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MYSTERY CODE 


In order to finish this program, you have to decipher a secret mes- 
sage while the program is running. 

Can you write a mystery code program like this one and let your 
friends try to solve it? 


SAMPLE RUN 


YOU ARE A BRITISH DIPLOMAT BEING HELD CAPTIVE BY A 
TERRORIST GROUP. 

SOMEONE JUST SLIPPED YOU A SECRET MESSAGE. 

DECODE IT AND YOU CAN ESCAPE. HURRY THE TERRORISTS 
ARE RETURNING! 

HINT-CROSS OUT WORDS THAT RHYME 

THE CODE IS....... 


PSATRMATEFATSPATSCATLBATERAT TYAT THATEZATRNATA 


TA 
KEY IS UNDER THE ROOK 


PROGRAM LISTING 
100 DIM AS(1] 


110 PRINT: "YOU ARE A BRITISH DIPLOMAT BEING HELD CAPTIVE 


BY FA TERRORIST GROUP." 
120 PRINT “SOMEONE JUST SLIPPED YOU A SECRET MESSAGE. 
130 PRINT “DECODE IT AND YOU CAN ESCAPE. HURRY THE 
TERRORISTS ARE RETURNING?“ 
140 PRINT “HINT-CROSS OUT WORDS THAT RHYME” 
150 PRINT “THE CODE IS......." 
“160 PRINT 


170 PRINT “PSATRMATEFATSPATSCATLBATERAT TYAT THATEZATRNATA” 


180 INPUT AS 
190 IF AS="A" THEN 220 

200 PRINT "@eeBANG BANG THEY SHOT YOUeee” 
210 GOTO 230 | 

220 PRINT “KEY IS UNDER THE BOOK" 

230 END 


Note:. Line 190: Notice that a string variable can be used in an IF 
THEN statement too. 
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TEN SPEED 


The computer can help you save toward a goal. This program cal- 
culates the time it will take you to save for a ten speed bicycle. 

If you. change values for the interest rate, the total amount 
needed, and the monthly amount, you can use the program to cal- 
culate how long it will take to save for a vacation, for college, or 
anything else you want. 


SAMPLE RUN 


YOU HAVE DECIDED TO SAVE FOR AR NEW TEN SPEED 

IF THE BANK PAYS 5 lve % INTEREST COMPOUNDED MONTHLY 
HOW LONG WILL IT TAKE TO SAYE FOR YOUR TEN SPEED? 
THIS PROGRAM WILL GIVE YOU THE ANSWER 


HOW MUCH WILL YOUR BIKE COST?7183.95 
HOW MUCH CAN YOU SRVE A MONTH?15 


FOR YOUR $ 183.95 TEN SPEED: SAVING $ 15 
A MONTHs 

YOU CAN HAYE $ 185.45 IN le MONTHS. 

PROGRAM LISTING 


100 PRINT “YOU HAVE DECIDED TO SAVE FOR A NEW TEN SPEED" 

105 PRINT “IF THE BANK PAYS 5 172 % INTEREST COMPOUNDED 
MONTHLY" 

110 PRINT "HOW LONG WILL IT TAKE TO SAVE FOR YOUR TEN. 
SPEED?” 

115 PRINT “THIS PROGRAM WILL GIVE YOU THE ANSWER” 

120 PRINT 

125 PRINT “HOW MUCH WILL YOUR BIKE COST“3 

130 INPUT A 

1385 LET R=.055 

140 PRINT “HOW MUCH CAN YOU SAVE A MONTHS 

145 INPUT # 

150 LET T=0 

155 LET N=0 

160 LET N=N+1 

165 LET T=T+M 

170 LET T=Teci+R-i2> 

175 IF T>A. THEN 185 
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190 GOTO 160 

185 PRINT ; a 

190 PRINT “FOR YOUR $ "“3AS” TEN SPEED» SAVING © "5™3“ 
A MONTHs “ | 

195 PRINT “YOU CAN HAVE $ “SINT (T0100+.5>~1005" IN 
“3N3 “MONTHS. ” 

200 END 


Note: Line 175: The symbol > means greater than. This IF. . . 
THEN statement stops the program as soon as T, the total 
saved, is greater than A, the amount needed. 


VARIABLE LIST 


A—Amount needed for purchase 
R—Current interest rate 
M—Monthly savings 

T—Total earnings 

N—Number of months 
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TIME DIFFERENCES 


If you live on the West Coast and you want to call your cousin in 
Boston, you might want to know what time it is in Boston. This pro- 
gram lets you convert from your time to the time anywhere else in 
the world. 

How would you change the program if you lived in New York 
and wanted to call a friend in Seattle? 


SAMPLE RUN 


I CAN TELL YOU WHAT TIME IT IS ANYWHERE IN THE WORLD 
JUST INPUT THIS INFORMATION 
HIT “Oo” TO STOP. 


YOUR TIME IN HOURS7S 
THE TIME DIFFERENCE IN HOURS7S 
THEIR TIME IS 11 O”’CLOCK 


YOUR TIME IN HOURS?7S 
THE TIME DIFFERENCE IN HOURS ?-3 
THEIR TIME IS ra O” CLOCK 


PROGRAM LISTING 


100 PRINT "I CAN TELL YOU WHAT TIME IT IS 
ANYWHERE IN THE WORLD" 

105 PRINT "JUST INPUT THIS INFORMATION" 

110 PRINT "HIT *O? TO STOP." 

115 PRINT 

120 PRINT "YOUR TIME IN HOURS"; 

130 INPUT T 

132 IF T=0 THEN 175 | 

135 PRINT "THE TIME DIFFERENCE IN HOURS"; 

140 INPUT D 

145 LET N=T+D 

150 IF N <= 12 THEN 140 

155 N=N-12 

140 PRINT "THEIR TIME IS "gN3" 0? CLOCK" 

165 PRINT ” 

170 GOTO 120 

175 END 
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Note: Line 150: ‘The symbols< = mean less than or equal to. The 
program will'skip to line 160 if N is equal to 12 or any num- 
ber less.than 12. 


VARIABLE LIST 
T—Your time 


D—Time difference in hours 
N—Their time 
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INTERIOR DECORATING 


You want to paint your bedroom. walls, and you have some paint 
already. Now, you are not sure: you have enough paint. Use this 
program to find out if you need to buy any more. 

Can you change the program to estimate your needs for’ more. 
than one room? 


SAMPLE RUN 


YOU ARE PRINTING YOUR ROOM AND NEED 
TO FIND OUT IF- YOU HAVE ENOUGH 
PRINT. INPUT THE FOLLOWING 


LENGTH AND WIDTH OF ROOM?712>20 
3Q FT PER GALLON OF PRINT7100 
GALLONS OF PRINT YOU HAVE NOW?e 


BUY MORE RAINTs YOU NEED- 3.12 GALLONS MORE 


PROGRAM LISTING 


100 PRINT “YOU ARE PRINTING YOUR ROOM AND NEED” 

105 PRINT "TO FIND GUT IF YOU HAVE ENOUGH" 

110 PRINT “PAINT. INPUT THE FOLLOWING” 

115 PRINT 

120 PRINT "LENGTH AND WIDTH OF ROOMS 

425 INPUT Low 

130 PRINT "SQ FT PER GALLON OF PAINT” 

135 INPUT $ 

140 PRINT “GALLONS OF PAINT YOU HAVE NOW'S 

145 INPUT B 

147 LET H=8 

150 PRINT 

155 LET A=2eLeH+Zewet 

160 LET G=A-S 

165 IF B. <= G THEN 180 | 

170 PRINT “YOU ARE O.K.» YOU ONLY NEED “363” GALLONS. ” 

175 GOTO 185 | 

1986 PRINT “BUY MORE PRINT. ‘YOU NEED “$6-B3" GALLONS 
PORE. “ 

195 END 
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Note: Line 155: Calculates the square feet in your room. 
Line 160: Calculates the gallons of paint-needed.. 


VARIABLE LIST 


L—Lenath 

W—Width 

S—Square feet per gallon 

‘B—Gallons of paint you have now 

A—Area of your room 

G—Gallons needed 

H—Height of room—set to 8 in this problem 
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DRIVER'S TEST 


When you take the test for your driver’s license, you have to esti- 
mate the braking distance required to stop a moving car. To prac- 
tice, try taking our driving test: Remember, it takes a lot farther to 
stop a moving car than you might think! 


SAMPLE RUN 


THIS PROGRAM HELPS YOU DECIDE 
WHEN TO PUT ON THE BRAKES 


MI“HR CAR IS TRAVELING7T2S 

YOUR ESTIMATE OF FEET REQUIRED TO STOP?735 
YOU WOULD HAYE STOPPED TOO SOON 

IT TAKES 20.8765 FEET TO sTdaP 

AGRINTY 


MI-HR CAR IS TRAVELING?769 

YOUR ESTIMATE OF FEET REQUIRED TO STOP?7100 
YOU WOULD HAVE CRASHED? 

IT TAKES 120.243 FEET TO STOP 

AGRINTN 


PROGRAM LISTING 


100 DIM ASTI) 

105 PRINT “THIS PROGRAM HELPS YOU DECIDE” 

110 PRINT “WHEN TO PUT ON THE BRAKES” 

115 PRINT 

120 PRINT “MI-HR CAR IS TRAVELING" 

125 INPUT S$ 

130 LET S=Se528073600 

135 D=S oe 2764.4 

140 PRINT "YOUR ESTIMATE OF FEET REQUIRED TO STOP” 
145 INPUT F 

150 IF F<D-2 THEN: 170 

155 IF F>D+2 THEN 190 

160 PRINT “YOU WERE CLOSE ENOUGH - GOOD DRIVING?” 
165 GOTO 190 | | 

170 PRINT “YOU WOULD HAVE CRASHED!” 

175 GOTO 190. 

180 PRINT "YOU WOULD HAYE STOPPED TOO SOON” 

185 GOTO 190 
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190 


PRINT “IT TAKES “3D5" FEET TO STOP” 


195 PRINT “AGAIN'S 

200 INPUT AS 

205 PRINT 

210 IF AS="Y" THEN 120 

eiS END: 

Note: Line 150: Notice that an IF. THEN statement can.use a 

numeric expression: The program computes the result of the 
numeric expression and then applies the IF THEN test. 
Lines 150-155: These statements are used together in order 
to determine if the feet estimated are within 4 feet of the ac- 
tual feet required to stop. 
Lines 195-210: These statements are a clever way of finding 
out if the person running the program wants to continue. 
Compare this with the method used in Chapter 4. 

VARIABLE LIST 


S—Miles/Hour converted to Feet/Sec 
D—Feet required to stop 
F—Input estimate of feet required to stop 
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SPELLING. 


The computer can help you and your friends solve spelling puzzles. 
In this game, you have to supply the missing letters needed to com- 
plete the word. 

Try writing your own program using a different word. You could 
also add other words to this program. 


SAMPLE RUN 
TRY TO FIGURE OUT THE MISSING LETTERS IN’ THIS WORD 


C.ROM_? 

THE FIRST LETTER IS?T 

WRONG: TRY AGAIN 

THE FIRST LETTER IS7H 

RIGHT - THE SECOND LETTER IS7R 
WRONG -— TRY AGAIN 

THE SECOND LETTER IS7E 
RIGHT» YOU SPELLED CHROME 


PROGRAM LISTING 


100 DIM ASC12>BS(1) 

110 PRINT “TRY TO FIGURE OUT THE MISSING LETTERS IN 
THIS WORD" 

120 PRINT 

130 PRINT “C_ROM_7" 

140 PRINT "THE FIRST LETTER IS"3 

150 INPUT AS 

160 IF AS="H" THEN 190 

170 GOTO 240 

190. PRINT “RIGHT - “3 

190 PRINT “THE SECOND LETTER IS" 

200 INPUT BS | 

210 IF BS="E" THEN 260 

220 PRINT “WRONG - TRY AGAIN" 

230 GOTO 190 

240 PRINT “WRONG» TRY AGAIN” 

250 GOTO 140 

260 PRINT “RIGHT> YOU SPELLED CHROME” 

270 END 
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Note: Line 160: If you input “H” then the computer goes to line 
180; otherwise it drops down to line 170. 
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YOU ARE A DETECTIVE 


Each time you run through this program, you can have a different 
adventure. Watch out though, only one path is correct. 

You can write your own mystery programs too. Just think of a 
story and use the IF THEN statements to send your detective 
on different adventures. 


SAMPLE RUN 


YOU ARE A DETECTIVE. YOU RECEIVE A CALL 
FROM MR. DREW. HE ASKS YOU TO COME 

OVER. HE BELIEVES HIS LIFE IS IN. DANGER. — 
IF YOU DECIDE TO GO TO-HIS HOUSE TYPE YES. 
IF YOU: DECLINE TYPE NO. 

TYES 

MR. DREW MEETS YOU AT HIS HOUSE. HE TELLS 
YOU HE SUSPECTS HIS WIFE IS TRYING TO 
KILL HIM. HE ASKS YOU TO STAY FOR 

DINNER $O YOU CAN MEET HER AS WELL 

AS HIS NIECE LUCY AND A FRIEND DR. QUIMBY. 
IF YOU ACCEPT HIS INVITATION TYPE MDREW 

IF YOU DECIDE TO GO HOME TO WATCH YOUR 
FAVORITE TY SHOW SAYING YOULL CALL 

MR. DREW IN THE MORNING TYPE CALL 

TMDREW 

MRS. DREWs A RATHER PLUMP PLEASANT WOMAN 
IS VERY GRACIOUS AT DINNER. AFTER DINNER 
MR. DREW OFFERS HIS GUESTS A GLASS OF 
BRANDY. SINCE YOU DECLINE YOU DECIDE 

TO STROLL AROUND THE GARDEN. SUDDENLY 

YOU HEAR R CRASH FOLLOWED BY A SCREAM? 

YOU RUSH IN TO FIND MR. DREW HAS BEEN 
POISONED? THE POLICE ARE CALLED. BEFORE 
THEY ARRIVE - YOU DECIDE TO INTERVIEW THE WITNESSES. 
IF YOU CHOOSE TO SPERK TO 
THEM AS A GROUP, TYPE GROUP. 

IF YOU INTERVIEW THEM INDIVIDUALLY TYPE ONE. 
TONE 

DURING YOUR INTERROGATION OF MR. DREW’S 
NIECEs SHE MAKES A FATAL SLIP. 

YOU: DISCOVER SHE HAD THE OPPORTUNITY 

TO PUT ARSENIC IN MR. DREW'S 

BRANDY BECAUSE SHE WANTED 

HER INHERITANCE MONEY NOW! WITH 
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THE..POLICE COOPERATION SHE IS 
ARRESTED AND CHARGED WITH HIS 


MURDER. 


GREAT GOING! 


MRS. DREW 


REWARDS YOU HANDSOMLY? 


PROGRAM LISTING 


60 
100 
110 
120 
130 
150 
160 
165 
170 


180 


190 
195 
200 
210 
Pen 
230 
240 
260 
270 
280 
290 
292 
294 


296. 


297 
298 


300: 


310 
320 
330 
340 
400 
410 


420. 


430 
440 
450 
460 
465 
470 
475 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


DIM. X$ (1029 ¥SL10) »Z$£101- 


“YOU ARE @ DETECTEVE. YOU .REGELVE.A CALL 
“FROM MR. DREW. HE ASKS YOU TO COME" 

"OVER. HE BELIEVES HIS LIFE IS IN DANGER. " 
“IF YOU DECIDE TO GO TO HIS HOUSE TYPE YES." 
“IF YOU DECLINE TYPE NO." 

xs 


IF XS="YES" THEN 200 


IF -$="NO" 


PRINT 


THEN 300 


“I NEED-A-YES OR NO ANSWER. TRY AGAIN...” 


GOTO 160 


REMeoo 
PRINT 
PRINT. 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


IF YS="MDREW" 
IF YS="CALL." 


PRINT 


DECIDE TO -MEET MR DREW. 


“MR. DREW MEETS. YOU AT HIS. HOUSE. HE TELLS” 
“YOU HE SUSPECTS HIS WIFE IS TRYING TO” 
“KILL HIM... HE: ASKS. YOU TO STAY For” 

“DINNER SO: YOU CAN MEET HER AS WELL" 

“AS HIS NIECE LUCY AND & FRIEND DR. QUIMBY." 
“IF YOU ACCEPT HIS INVITATION TYPE MDREW” 
“IF ‘YOU DECIDE TO GO HOME TO WATCH: YOUR” 
“FAVORITE TY SHOW SAYING YOU*LL CALL" 


“MR. DREW IN THE MORNING TYPE CALL” 


"$s 

THEN 400 

THEN- 500 

“I NEED A MDREW OR CALL — TRY AGAIN, ” 


GOTO 292 


PRINT 
PRINT 


PRINT 


PRINT 


“YOU OBVIOUSLY AREN’T VERY. INTERESTED" 
“IN KEEPING UP YOUR. BUSINESS. -SOON" 
“YOU ARE. FORCED TO FIND ANOTHER JOB. 
“BETTER LUCK NEXT TIMES" ~ 


GOTO 999 
REMeeDECIDE TO STAY FOR DINNER 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRIMT 


“PRINT 


PRINT 
PRINT 


“MRS. DREWs A RATHER PLUMP PLEASANT. WOMAN” 
"IS VERY GRACIOUS AT DINNER. AFTER DINNER” 
“MR. DREW OFFERS HIS GUESTS A GLASS OF" 
“BRANDY. SINCE YOU DECLINE YOU DECIDE" 

“TO STROLL AROUND THE GARDEN. SUDDENLY" 
“YOU HEAR A CRASH FOLLOWED BY A SCREAM!“ 
“YOU RUSH IN TO FIND MR. DREW. HAS BEEN 
“POISONED! THE POLICE ARE. CALLED. BEFORE” 
“THEY ARRIVE -. YOU DECIDE TO INTERVIEW THE 


WITNESSES." 
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476 
430 
490 


491 
492 
493 
494 
495 
499 
500 
910 
920 
320 
340 


990 
960 
600 
605 
610 
620 
630 
640 
699 
700 
710 
reo 
730 
740 
750 
760 
r70 
780 
790 
999 


-PRINT “IF YOU CHOOSE TO SPEAK TO” 


PRINT “THEM AS A GROUP,» TYPE GROUP.“ 
PRINT. “IF YOU INTERVIEW THEM INDIVIDUALLY TYPE 
INPUT ZS 

IF Z$="GROUP” THEN 600 

IF 2$="ONE" THEN 700 

PRINT “I NEED A GROUP OR ONE - TRY AGAIN," 
GOTO 491 | 

REMeeDIDN’T STAY FOR DINNER | 

PRINT "YOU CALL THE DREW’S HOUSE IN THE MORNING. 
PRINT “THE POLICE ANSWER THE PHONE. MR. DREW" 
PRINT "WAS MURDERED LAST NIGHT. HE WAS POISONED” 
PRINT “AT DINNER. YOU ARE WANTED AS A WITNESS" 
PRINT "BUT YOUR DETECTIVE SERVICES. ARE NOT 
REQUIRED. " 

PRINT “TOO BAD?“ 

GOTO.999 

REMee*INTERVIEW THE GROUP 

PRINT “WHEN YOU INTERVIEW THE GROUPs YOU FIND" 
PRINT “QUT NOTHING USEFUL. YOU ARE FORCED” 
PRINT “TO TURN THE CASE OVER TO THE POLICE™ 
PRINT “WHEN THEY ARRIVE. OUT OF LUCK?” 

GOTO 999 

REMeeINTERVIEW INDIVIDUALLY 

PRINT “DURING YOUR INTERROGATION OF MR. DREW'S" 
PRINT "NIECE>s SHE MAKES A FATAL SLIP.” 

PRINT “YOU DISCOVER SHE HAD THE OPPORTUNITY" 
PRINT "TO PUT ARSENIC IN MR. DREW'S “ 

PRINT “BRANDY BECAUSE SHE WANTED” 

PRINT "HER INHERITANCE MONEY NOW! WITH" 

PRINT "THE POLICE COOPERATION SHE IS“ 

PRINT “ARRESTED AND CHARGED WITH HIS” 

PRINT “MURDER. GREAT GOING! MRS. DREW” 

PRINT “REWARDS YOU HANDSDMLY? ” 

END 


Note: Line 165: Notice that you can use words in your IF 


THEN statements too. 
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7| FUNCTIONS | 
(INT, RND, ABS) 


Doing Complex Things 
the €asy Way | 


Functions are programs built-in to 
the computer that you can use to 
make it easy for you to do complicated 
operations in your own programs. 
The functions you need for games are: 
INT Integer function—Changes any 
decimal number to a whole number. 
INT (6.15) = 6 
RND Random function— Generates 
random numbers from 0 to 1. 
ABS Absolute value function— 
Eliminates the minus sign 
in a negative number. 
ABS(— 10) = 10 


PROBLEMS 

. Soccer 

. Shell Game 

Dice Game 

Number Guessing Game 
Number Sequences 

How Warm Is Your Heart? 
War 


NOOR WN 


SOCCER 


One of the rules of AYSO (American Youth Soccer Organization) 
soccer is that everyone on the team must play at least 2 quarters. If 
all'15 players show up for a game, it is difficult to have everyone 
play an equal amount of time. This program can help you out. It cal- 
culates the number of quarters everyone can play, depending on 
how many show up for the game. - 

How can you change the program for your basketball team? 

Alter the program to tell you how many innings. everyone can 
play on your Little League team. 


SAMPLE RUN 


I WILL FIND OUT HOW MANY QUARTERS 

EACH MEMBER OF THE TEAM CAN PLAY 

NUMBER OF PLAYERS FOR THIS GAME715 
EVERYONE PLAYS 2 QUARTERS 

WHILE 14 PLAYERS WILL PLAY 3 QUARTERS 


PROGRAM LISTING 


100 PRINT “I WILL FIND OUT HOW MANY QUARTERS” 

105 PRINT “EACH MEMBER OF THE TERM CRN PLAY” 

110 PRINT “NUMBER OF PLAYERS FOR THIS GAME"S 

115 INPUT WN 

leq) 6LET P=1104 

125 LET A=P-/N 

127 6oIF A >= 4 THEN 155 

128 LET A=INT CAD 

135 LET Q=P—-ReN 

140 PRINT “EVERYONE PLAYS “SAS” QUARTERS” 

145 PRINT “WHILE “s@Q5" PLAYERS WILL PLAY “sAt+is” 
QUARTERS” 

150 GOTO 160 

i55 PRINT “EVERYONE NEEDS TO PLAY 4 QUARTERS" 

160 END 
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Note: Line 125: The INT function forces the result of P/N to be a 
whole number, or integer. It cuts off any fractions without 
rounding. 

ex. INT(3.25) 
INT(3.95) 


VARIABLE LIST 


N—Number of players at this game 

P—Total number of quarters available for the game 
A—Number of quarters needed for everyone to play 
Q—Extra quarters some players can play 
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SHELL GAME 


In this game, you play the original carnival shell game with the com- 
puter. Needless to say, this computer’s “hand” is definitely quicker 
than your eye! . 

Design your own slight of hand game or have your friends guess 
a prize behind door number 1, 2, or 3. 


SAMPLE RUN 


‘READY TO PLAY THE SHELL GAME? 
SEE IF YOU CAN GUESS WHICH CUP HAS THE BEAN 
OK PLACE YOUR BET725 

WHICH CUP HAS THE BEAN 1 2 OR 37 
73 | 

YOU ARE RIGHT? 

YOU WON $ SO 

YOUR TOTAL WINNINGS ARE $ 50. 

WANT TO TRY AGAIN7Y 

OK PLACE YOUR BET?25 

WHICH CUP HAS THE BEAN 1 2 OR 37 
72 

YOU ARE RIGHT? 

YOU WON $ 50 

YOUR TOTAL WINNINGS ARE $ 100 

WANT TO TRY AGAIN7Y 

OK PLACE YOUR BET?25 

WHICH CUP HAS THE BEAN 1 2 OR 37 
71 

I FOOLED YOU THE BERN WAS IN CUP 2 
SORRY . . . YOU LOST $ 25 

YOUR TOTAL WINNINGS ARE $ 75 

WANT TO TRY AGAIN7N 


PROGRAM LISTING. 


100 DIM AS(1] | 

105 PRINT "READY TO PLAY THE SHELL GAME?“ 

110 PRINT “SEE IF YOU CAN GUESS WHICH CUP HAS THE BEAN” 
115 LET T=0 | 

120 PRINT "OK PLACE YOUR BET”3 

125 INPUT B 

130 LET R=INTC(RND(1) e341) 

135 PRINT “WHICH CUP HAS THE BEAN 1 2 OR 37° 
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140 
145 
150 
1835 
160 
165 
170° 
1735 
180 
185. 
190 
195 
200 
205 
210. 
215 
220° 


Note: 


INPUT 


A 


IF A=R THEN 155 
GOTO 185 


PRINT 


“YOU ARE RIGHT? “ 


LET B=Bee 
LET T=T+B 


PRINT 
PRINT 


“YOU WON S$ “3B 
“YOUR TOTAL WINNINGS ARE $ "3T 


GOTO 205 


PRINT 
T=T-B 
PRINT 
PRINT 


‘PRINT 


INPUT 


“I FOOLED YOU. THE BERN WAS IN CUP “SR 


“SORRY...YOU LOST $ "$B 

“YOUR TOTAL WINNINGS ARE $ "35 T 
“WANT TO TRY AGARIN'S 

RS 


IF AS="Y° THEN 120 


END 


Line 130: This statement gets a random number from 1 to 3. 
The RND(0) function gives a number from 0 to .9999. Try 
calculating this expression yourself using different random 
numbers. This is called playing computer. If you want a num- 
ber from 1 to 6, just change the 3 to a 6. 


VARIABLE LIST 


T—Total winnings 
B—Bet 
R—Cup with the bean 

A—Your guess of the cup 


COMPUTER NOTES 


The format for the RND function varies with each computer. See 
Appendix A for the proper format for your computer. 
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DICE GAME 


This program pretends that the computer can throw dice. The per- 
son playing the game starts with some money, then wins or loses 
depending on the throw of the dice as follows: 


Original amount 


Dice throw of money is: 
6 or 12 Tripled 

8 or 9. Doubled 

7 or 11 Lost 

All others No change 


Try changing the betting odds for the. game. 


SAMPLE RUN 
READY TO PLAY THE DICE GAME? 


WHAT IS YOUR BET?710 

DICE THROW IS 5 

NO CHANGE 

TOUR TOTAL WINNINGS ARE 0 
AGAINTY 


WHAT IS YOUR BET?25 

DICE THROW IS 7 

YOU LOST? 

“YOUR TOTAL WINNINGS ARE-25 
AGAINTY 


WHAT IS YOUR BET725 

DICE THROW IS 7 

YOU LOST? 

YOUR. TOTAL WINNINGS ARE-50 
AGRIN7Y 


WHAT IS YOUR BET?50 

DICE THROW IS 8 

YOU WIN! YOU DOUBLED YOUR BET? 
YOUR TOTAL WINNINGS ARE 50 
AGAIN?TY 


FUNCTIONS: Doing Complex Things the Easy Way * 97 


WHAT IS ‘YOUR BET?710 
DICE THROW IS 5 


NO CHANGE 
YOUR TOTAL WINNINGS ARE 50 

AGAINZN 

PROGRAM LISTING 

100 DIM AS(1) 

105 LET T=0 

110 PRINT “READY TO PLAY THE DICE GAME?" 
115 PRINT 

120. PRINT "WHAT IS YOUR: BET"3 

125 INPUT Mm 

130 LET A=INTCRND (1) 6641) 

135 LET B=INT(RND(1)>06+1) 

140 LET C=A+B | 

145 PRINT "DICE THROW IS "3C 

150 IF C=6 THEN 195 

155 IF C=12 THEN 195 

160 IF C=8 THEN 210 

165 IF C=9 THEN 210 

170 IF C=7 THEN 225 

175° IF C=11 THEN 225 

180 PRINT “NO CHANGE” 

185 LET M=0 

190 GOTO 240 

195 PRINT "YOU WIN? YOU TRIPLED YOUR BET?!” 
200 LET M=Me3 

205 GOTO 240 

210 LET M=Mee | 

215 PRINT “YOU WIN? YOU DOUBLED YOUR BET!” 
220. GOTO 240 

225 PRINT “YOU LOST?” 

230 LET T=T-M 

235 GOTO 245 

240 LET T=T+M | 

245 PRINT “YOUR TOTAL WINNINGS ARE “3T 
250 PRINT "AGAIN" 

255 INPUT AS 

260 IF AS="Y" THEN 115 

265 END 


Note: Lines 130, 135: These statements work as if the computer 


was rolling the dice. They set the numeric variables A and B 
to a random number between 1 and 6. 
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VARIABLE LIST 


M— Your bet 

A—Die throw #1 
B—Die throw #2 
C—Total of both dice 
T—Total winnings 
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NUMBER GUESSING GAME 


In this game the computer. picks a number from 1 to 100, then 2 
players try to guess the number. The player closest to the number 
wins 10 points. 

What if the number was from 1 to 200? What would you change? 


SAMPLE RUN 


WELCOME TO THE NUMBER GUESSING GAME 

THIS IS A GAME FOR TWO PLAYERS 

THE COMPUTER PICKS A NUMBER FROM 1 TO 100 

EACH PLAYER GUESSES A NUMBER | 

THE PLAYER CLOSEST TO THE CORRECT NUMBER GETS 10 POINTS 
R PLAYER GETS SG POINTS IF THE PLAYER GUESSES THE NUMBER 


OK INPUT YOUR GUESS 

PLAYER 1730° 

PLAYER 2770 

PLAYER 2 WINS 

THE. COMPUTER’S NUMBER WAS 64 

THE SCORE IS - PLAYER 1 0 
PLAYER. 2 10 

AGAIN7Y 

OK ENPUT YOUR GUESS 

PLAYER -1750 

PLAYER 27100 

PLAYER 1 WINS 

THE COMPUTER’S NUMBER WAS 51 

THE SCORE IS - PLAYER 1 10 
PLAYER 2 10 

AGAIN7Y 

OK INPUT YOUR GUESS 

PLAYER 1720 

PLAYER 2780 

PLAYER 1 WINS 

THE COMPUTER’S NUMBER WAS 42 

THE SCORE IS - PLAYER 1 20 

| PLAYER 2 10 
AGAIN?N 
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PROGRAM LISTING 


DIM ASCII | 

PRINT “WELCOME TO THE NUMBER GUESSING GAME 

PRINT “THIS IS A GAME FOR TWO PLAYERS" | 
PRINT “THE COMPUTER PICKS A NUMBER FROM 1 TO 100" 
PRINT “EACH PLAYER GUESSES A NUMBER" 

LET S=0 


LET T=0 


PRINT “THE PLAYER CLOSEST TO THE CORRECT NUMBER 
GETS 10 POINTS” 

PRINT "A PLAYER GETS SO POINTS IF THE PLAYER 
GUESSES THE NUMBER" ~ 
PRINT 

PRINT “OK INPUT YOUR GUESS” 

PRINT “PLAYER 1"s 

INPUT P 

PRINT “PLAYER 2”s 

INPUT N 

A=INT CRAND €1> 100415 

LET B=ABS (P-FD 

LET C=ABS CN-AD> 

IF B>C THEN 235 

IF B<C THEN 2en 

PRINT “YOU BOTH WIN" 

LET S$=$+10 

LET T=T+10 

GOTO 245 

PRINT “PLAYER 1 WINS” 

LET S=$+10 

GOTO 245 

PRINT “PLAYER 2 WINS” 

LET T=T+10 

PRINT “THE COMPUTER’S NUMBER WARS “SA 
PRINT “THE SCORE IS ~- PLAYER 1 “sS 
PRINT - PLAYER 2 "ST 
PRINT “AGAIN” 

INPUT AS | 

IF AS="Y" THEN 1590 

END 


: Line 175: The computer gets a random number from 1 to 


100. 


Lines 180, 185: The ABS- function eliminates the minus 
sign. For example, if P=5 and A= 10 then P—A= —5, but 
the ABS function. would change —5 to 5. 
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Lines 190; 195: The computer calculates which guess is clos- 
est to the computer’s number. 


VARIABLE LIST™ 


P—Player #1’s quess 

N—Player #2’s guess 

A—The computer’s number | 

B—The difference between Player #1 and the computer 
C—The difference between Player #2 and the computer 
S—Player #1’s winnings 

T—Player #2’s winnings 
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NUMBER SEQUENCES. 


This program prints a sequence of numbers. See if you can figure 
out what the next number should be. 

Can you fix the program so it keeps track of the number of cor- 
rect answers? 


SAMPLE RUN 
THIS PROGRAM PRINTS AR SEQUENCE OF NUMBERS 
SEE IF You CAN FIGURE DUT. WHAT THE NEXT NUMBER SHOULD BE 


3 rs) re 9 i1 713 
YOU WERE RIGHT>s CONGRATULATIONS! 

3 9 er 81 243 729 
YOU WERE RIGHTs CONGRATULATIONS? 

ra) 10 20 40 80 7160 
YOU WERE RIGHT» CONGRATULATIONS$ 

3 ¢ 2 15 19° ‘le 
SORRY>s THE NEXT NUMBER IS _ 23 

i 3 9 or 31 7243 
YDU WERE RIGHT: CONGRATULATIONS? 

3 10. 17 24 31 738 


YOU WERE RIGHTs CONGRATULATIONS? 


PROGRAM LISTING 


100 PRINT "THIS PROGRAM PRINTS A SEQUENCE OF NUMBERS” 

105 PRINT “SEE IF YOU CAN FIGURE DUT WHAT THE NEXT 
NUMBER SHOULD BE" 

110 S=INTCRND(1> e2+1> 

115 A=INTCRND (1) e541) 

120 B=INTCRND(1>o10+41> 

125 C=INTCRND (1) ©3+1> 

130 IF C=1 THEN 125 

135 1=0 

140 IF $=1 THEN i165 

145  REMee THIS IS A GEOMETRIC SEQUENCE 

150 N=AeC oo I 

155 GOTO 179 | 

160 REMee THIS IS AN ARITHMETRIC SEQUENCE 

165 N=A+IoB 

170) J=I+1 

175 IF I>S THEN 190 
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177, LET N=INT.(N) 

180 PRINT N3 

185 GOTO 140 

190 INPUT M 

195 IF M=N THEN 210 

200 PRINT "SORRY, THE NEXT NUMBER IS "3N 
205 GOTO 110 

210 PRINT "YOU WERE -RIGHT, CONGRATULATIONS!" 
215 GOTO 110 

220 END 


Note: Line 150: The computer calculates a geometric sequence. 
Line 165: The computer calculates an arithmetic sequence. 


VARIABLE LIST 


S—Determines the type of sequence 

S=1 arithmetic sequence 

S = 2 geometric sequence 
A—For arithmetic sequence—first number 

For geometric sequence—multiplier 
B—For arithmetic sequence—common difference 
C—For geometric sequence—common ratio 
M—Next number in sequence 
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HOU WARM IS YOUR HEART? 


How warm is your heart? Use this program to find out. You type in 
a number from 1 to 5 and the computer decides how warm you 
really are. Don’t be surprised if the computer changes its mind. After 
all, computers don’t know everything. 

You can add responses of your own to this program.: 

Try writing a program of your own that evaluates someone’s per- 
sonality or athletic ability. 


SAMPLE RUN 


TO SEE HOW WARM YOUR HEART IS 
TYPE A NUMBER FROM 1 TO 5 

71 

YOUR HEART IS ON FIRE?® 

TYPE A NUMBER FROM 1 TO 5 

fis) 

YOUR HEART IS IN THE NORTH POLES 
TYPE RA NUMBER FROM 1 TO 5 

73 

YOUR HEART IS IN THE NORTH POLE? 


PROGRAM LISTING 


100 PRINT “TO SEE HOW WARM YOUR HEART IS” 
105 PRINT “TYPE A NUMBER FROM 1 TO 5” 

110 INPUT N 

115 IF N>S THEN 105 

120) «6 S=INTCRND (1) e2) @¢-2) +1 

125) §=R=INT CRND (1) ©5415 

130 © T=N+SerR 

135 IF T>1 THEN 150 

140 PRINT “YOUR HEART IS IN THE NORTH POLES” 
145 GOTO 105 

150 #IF T>2 THEN 165 

155 PRINT "YOUR HEART IS IN A DEEP FREEZE?” 
160 GOTO 105 

165 IF T>3 THEN 180 

170 PRINT “YOUR HEART IS THAWING OUTS” 

i7S)6=— GaTa 108 ; 

180 IF T>4 THEN 195 

185 PRINT “YOUR HERRT IS STARTING TO GLOWS” 
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190 
195 
200 
205 


GOTO 105 

PRINT “YOUR HEART IS ON FIRE??” 
60TO 105 

END 


Note: Line 120: Pretend that you are the compiter, and try to cal- 


‘culate what value S can have when this statement is run. 


VARIABLE LIST 


N—Number input 
R—Random number I to 5 . 
S—Determines if random number is added to or subtracted from 


the number input 


T—Determines which response is printed 
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WAR 


Play the card game WAR with the computer.. You and the com- 
puter each start with 26 cards. When it is your turn, input a number 
from 1 to 5. If you match with the computer, you have a BATTLE. 
Input a 1 or 2 to decide the outcome. If you pick the same number 
as the computer, you win. If it is different, the computer wins. The 
winner of the BATTLE gets all of the opponent’s cards since the last 
BATTLE. The WAR is won when one of you gets more than 42 
cards. Good Luck! 

Can you write a program that plays one of your favorite card 
games? | 


SAMPLE RUN 


WELCOME TO THE GAME WAR - 

WE EACH START WITH 26 CARDS 

NUMBERED 1-5 | 

WHEN IT IS YOUR TURN — INPUT A ‘NUMBER 1 - 5 


YOUR CARD?1 

COMPUTERS CARD 1 . 
THIS IS WAR. PICK A 1 OR e71 
TOSS WAS A 1 

YOU WIN 1 CARDS 


YOUR CARD?2 
COMPUTERS CARD 
YQUR CRARD?S3 
COMPUTERS CARD 
YOUR CRARD?2 
COMPUTERS CARD 
YOUR CARD?4 
COMPUTERS CARD 1 
YOUR CRRD?T1 
COMPUTERS CARD 4 
YOUR CARD?T4 
COMPUTERS CARD 2 
4 


> 2+ D> 


YOUR CARD?3 

COMPUTERS CARD 

YOUR CARD72 

COMPUTERS CARD 2 

THIS IS WAR. PICK A 1 OR 271 
Toss WAS A 1 | 

YOU WIN @ CARDS 
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PROGRAM LISTING 


100 DIM AS(1] 
105 PRINT “WELCOME TO THE GAME WAR” 

110 PRINT “WE ERCH START WITH 26 CARDS” 
115 PRINT “NUMBERED 1-5" | 
120 PRINT “WHEN IT IS YOUR TURN -. INPUT A NUMBER 1 - 5" 
125 REMeeCOMPUTERS CARDS 

130 LET T=26 

135 REMe*vOUR CARDS 

140 LET S=86 

145 LET U=0 

150 LET ¥=0 

155 PRINT 

160 PRINT “YOUR CARD" 

165 INPUT N 

170 LET V=¥+1 

175 C=INTCRND (1) e541) 

180 PRINT “COMPUTER’S CARD “3C 

195 LET U=U+1 

190 IF C=N THEN 230 

195 IF U<T THEN 210 

200 REMee USED ALL CARDS IN PILE - TURN PILE OVER 
205 LET U=0 ~ 

210 IF ¥<S THEN 160 

215 LET ¥=0 

220 GOTO 160 

225 REMOoHAD A MATCHee 

230 PRINT “THIS IS WAR. PICK A 1 OR 2°3 
235 INPUT P 

240 R=INTC(RND(1) e241) 

245 PRINT "TOSS WAS A "SR 

250 IF R=P THEN 280 

255 PRINT "I WIN "3¥3 "CARDS" 

260 LET S=S-¥ 

265 LET T=T+¥ 

270 IF T>42 THEN 325 

275 GOTO 145 

280. PRINT "YOU WIN "$U3" CARDS" 

285 LET S=S+uU- 

290 LET T=T-U 

295 IF $>42 THEN 310 

300 GOTO 145 

305 REM@*PLAYER WINS GAMES 

310 PRINT “YOU WIN GAME" 

315 GOTO 330 | 

320 REMeeCOMPUTER WINSee 

325 PRINT “I WIN GAME" 

330 PRINT “I HAVE "3T3" CARDS" 

335 PRINT "YOU HAYE "3S3" CARDS" 
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340. 


245. 


390 
355 
360 
S65 
370 


PRINT | 
PRINT "TRY AGAINCY/ND "Ss 

INPUT AS 

IF AS="Y" THEN 105 

PRINT " 

PRINT “BETTER LUCK NEXT TIME!“ 
END 


Note: Line 175: This statement randomly assigns a number from 1 


to 5 to the numeric variable C. This is how a programmer 
makes the computer play games. 

Lines 125, 135: Notice how the REM statement is used to 
identify variables. This makes it easier to change or fix a pro- 
gram later. 


VARIABLE LIST 


T—Number of cards the computer has 

S—Number of cards the player has 

U—Number of cards computer has turned up 
V—Number of cards the player has turned up 
C—Computer’s number (1-5) 

N—Player’s number (1-5) 

P—Player’s guess during a battle (1-2) 
R—Random number determining winner of a battle 
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8) FOR. . . NEXT 
The Computer Repeats Itself 


The FOR.  . NEXT statements allow 
you to tell the computer to repeat some 
lines in your program as many times 

as you want. In every FOR. . NEXT 
loop, the FOR statement is the 
beginning point of the loop and 

the NEXT statement is always the 

last statement in the loop. 


PROBLEMS 

1. Fancy Counting 

2. Blast Off 

3. Pinball 

4. Paper, Rock, Scissors 
5. Ring the Bell 


FANCY COUNTING 


This program counts by fives. It is very similar to one in Chapter 3, 
but this one uses a new programming technique. Which program do 
you like better? 

Can you change this program to count by 2’s or by 10’s? 


SAMPLE RUN 
THIS PROGRAM COUNTS BY FIVES -— WATCH 
a 


HOW DID YOU LIKE THAT? 


PROGRAM LISTING 

100 PRINT "THIS PROGRAM COUNTS BY FIVES - WATCH" 
110 FOR I=5 TO 50 STEP 5 

120 PRINT I 

130 NEXT I 

140 PRINT "HOW DID YOU LIKE THAT?” 

150 END 


Note: Lines 110-130: This is called a FOR . . . NEXT loop. The 


computer executes lines 110, 120, and 130 and then goes 
back to 110 and starts over. Each time line 110 is executed, 
the variable I is increased by 5. When 1 is greater than 50 the 
computer skips around the loop and goes to line 140. 
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BLAST OFF 


This: program counts backward from 10 to 1 and then Blasts. Off! 
You can-change the count-down sequence by changing line 30. 


SAMPLE RUN 


HELLOs I AM FERDY TO BLAST OFF 
HERE IS THE COUNT DOWN 

10 

9 


7 
6 
ba) 
4 
3 
2 
1 
BLAST OFF 


PROGRAM LISTING 


10 PRINT “HELLO»s I AM READY TO BLAST OFF" 
20 PRINT “HERE IS THE COUNT DOWN" 

30 FOR I=10 TO 1 STEP -1 

40 PRINT I 

90 NEXT I 

60 PRINT “BLAST OFF” 

ro =END 


Note: Line 30: The FOR . NEXT statement can also use a mi- 
nus.step like this one. Then the computer stops the loop 
when I = lI. 
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PINBALL 


The computer can play Pinball too. The highest possible score in 
this game is 50; see how well you do. This game makes some noise 


if your terminal has a bell. 


Try changing the characters (the letters or numbers) displayed 
during the game. You might use names or nouns instead of 


numbers. 


Try changing the program so the player has to pay a quarter to 
play, and then keep track of the total amount of money the player 


spends. 
SAMPLE RUN 
TYPE A NUMBER TO START YOUR BALL OFF74 
ooTuOeoe 
ooTWDee 
*oTHREE oo 
oF DURCe 
eoTuDee 
YOUR SCORE I$ 41 
YOUR TOTAL SCORE IS 41 
PROGRAM LISTING 
100 DIM ASTI) 
105 T=90 


oF IVEo 
oeS Il Xoo 


ooF IVECo 
oeoS Il xee 


oS Il Xe 


110 PRINT “TYPE A NUMBER TO START YOUR BALL OFF"s 


115 INPUT A 

120 S=0 

125 FOR I=1 TO 10 

130 R=INTCRND (1) e641 

135 S=S+4R 

140 IF R>1 THEN 155 

145 PRINT TAB (Re10) »CHRS (7) » "e0NEoo” 
150 GOTO 220 

155 IF R>2 THEN 170 

160 PRINT TAB(RO10> >CHRS(7) » "eeTWIee" 
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165 
170 
175 
180 
185 
i930 
195 
200 
205 
210 
e215 
e20 
225 
230 
235 
240 
245 
250 
ess 


Note: 


GoTo 220 

IF R>3 THEN 185 | 

PRINT TABCR®10> »CHRS<7> » "@eTHREE So” 
GOTO 220 

IF R>4 THEN 200 . 

PRINT TABCRO10) »sCHRS (7) » "*eF OURS” 
GOTO 220 

IF R>S THEN 215 

PRINT TABC(RO10>»CHRS (7) > "eoFIVEoe" 
GOTO 220 | 

PRINT TAB (RO10> »CHRS (7) » "eeSl Xoo" 
NEXT I | } 

PRINT "YOUR SCORE IS"»S 

T=T+S 

PRINT "YOUR TOTAL SCORE IS"»sT 
PRINT “AGAIN"S 

INPUT AS 

IF AS="Y" THEN 110 

END 


Line 145: CHR$(7) rings a bell on your terminal. 


Line 150: You can use a GOTO statement to jump to the 
end of the loop. 


Line 125, 220: Notice how many lines of code are included 
inthis FOR. .NEXT loop. 


VARIABLE LIST 


T—Total score 
S—Game score 
R—Points for each round 
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PAPER, ROCK, SCISSORS 


You can play this game with your computer. Remember . . . rock 
breaks scissors, scissors cut paper and paper covers rock. 
Try changing the program so the computer keeps score. 


SAMPLE RUN 


PLAY THE GAME — PAPER, ROCK, SCISSORS - WITH THE COMPUTER 
MAKE YOUR CHOICE AND THEN TYPE IN 

R FOR ROCK, S FOR SCISSORS, F FOR PAPER 

TYPE X TO STOP . 


PR 

YOU WIN xk COMPUTER HAD S 

2S 

COMPUTER WON 4% COMPUTER HAD R 
25: 

WE MATCHED 

oR 

YOU WIN *x COMPUTER HAD S 
7S 

YOU WIN && COMPUTER HAD F 
oP 

YOU WIN ** COMFUTER HAD R 
?X 

PROGRAM LISTING 


100 DIM BS(4),AS(1) 

105 .LET B& = "FSRX" 

110 PRINT "PLAY THE GAME - PAPER, ROCK, SCISSORS - WITH 
THE COMPUTER" ' 

115 PRINT "MAKE YOUR CHOICE .AND THEN TYPE IN” 

120 PRINT "R FOR ROCK, S FOR SCISSORS, FP FOR PAPER” 

125 PRINT. “TYPE: X. TO..STOP*, 

130 LETC = INT « RND (Ay #3 + 1) 

135 INPUT AS 

140 REM HAF IND OUT: ‘WHAT: LETTER WAS TYPED IN 

145 FOR I= 1 TO'4.: 

150 IF AS = MID$ (Bs, I, 1). THEN 170 

155 NEXT 1 

160 PRINT "I NEED A R,S,P,.X PLEASE" 

145 GOTO 135 

{70 IF I = 4 THEN 250 


FOR . . . NEXT: The Computer Repeats Itself * 115 


175 REM *xGOT A MATCH 

180 IF C = I THEN 240 

185 REM *4#GOT P,R OR R,P 

190 IF C + I = 4 THEN 225 

195 IF C > I THEN 210 | ——- 

200 PRINT "YOU WIN ** COMPUTER HAD "; MIDS (B,C, 1) 
205 GOTO 130 

210 PRINT "COMPUTER WON ** COMPUTER HAD “3; MID® (BS,C,1) 
215 GOTO 130 

220 REM *xPLAY WON 

225 IF C > I THEN 200 

230 REM *&COMPUTER WON 

235 GOTO.210 

240 PRINT “WE MATCHED" 

245 GOTO 130 

250 END 


Note: Lines 145-155: These statements translate the input charac- 
ter into a number which the program can use. 


Lines 160-165: This “error routine” is needed in case the in- 
put character is wrong. 


VARIABLE'LIST 


C—Computer’s choice 
I—Player’s choice in numeric 
A$—Character input by player 


COMPUTER NOTES 


HP-2000 BASIC. Replace line 150 with: 

150 IF A$=BS$(I,l) THEN 170 

Replace line 200 with: 
200 PRINT “YOU WIN ** COMPUTER 
HAD ”; BS$(C,C) 

Replace line 210 with: | 
210 PRINT “COMPUTER WON ** COM- 
PUTER HAD ”; B$(C,C) 
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Atati-BASIC 


TI-BASIC 


Replace line 150 with: 
150 IF A$ =B$(I,l) THEN 170 


Replace line 200 with: 


200 PRINT “YOU WIN °° COMPUTER 
HAD ”, B$(C,C) 
Replace line 210 with: | 
210 PRINT “COMPUTER WON ** COM- 
PUTER HAD ”; B$(C,C). 
Replace line 150 with: | 
150 IF A$ =SEG$ (B$,1,1) THEN 170 
Replace line 200 with: 
200 PRINT “YOU WIN °** COMPUTER 
HAD ”; SEG$(B$,C, 1) 
Replace line 210 with: 
210 PRINT “COMPUTER WON °** COM.- 
PUTER HAD ”; SEG$(B$,C, 1) 
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RING THE BELL 


Now is your chance to see how. strong you are. In this game you are 
trying to ring the bell by hitting the platform with a sledge- 
hammer—all pretend of course! The computer tells you how well 
you do. 7 

Try changing the game by adding carnival prizes after a certain 
number of points. 


SAMPLE RUN 

YOU ARE TRYING TQ WIN THE STRONG MAN CONTEST AT THE 
LOCAL CARNIVAL | 

YOU ARE GOING TO SWING THE SLEDGE HAMMER AND TRY TO 
RING THE BELL: _ 

TO SWING, TYPE A LETTER FROM A~Z | 

THIS WILL COST YOU .25.—- PUT YOUR QUARTER ON THE TERMINAL 


NOW MAKE YOUR SWING?E 

YOU CAN HARDLY PICK UP THE.HAMMER, YOU SCORED 2 

YOUR TOTAL SCORE IS 2 

YOU HAVE SPENT $.25 

THIS WILL COST YOU .25 - PUT YOUR GUARTER ON THE TERMINAL 


NOW MAKE YOUR SWING?A 

YOUR 90 YEAR OLD AUNT COULD HAVE SCORED 3 

YOUR TOTAL SCORE 1S S. 

YOU HAVE SPENT $.5 

THIS WILL COST YOU .25 - PUT YOUR QUARTER ON THE TERMINAL 


NOW MAKE YOUR SWING?P 

YOU MOVED THE WEIGHT UP TO 4 

YOUR TOTAL. SCORE IS 9 
YOU HAVE SPENT $.75 


PROGRAM LISTING 


100 DIM A$(1),BS(8) 

105 LET BS = "BCPQUVJK" 

110 PRINT "YOU ARE TRYING TO WIN THE STRONG MAN CONTEST 

AT THE LOCAL CARNIVAL” 

115 PRINT "YOU ARE GOING TO SWING THE SLEDGE. HAMMER AND 
TRY TO RING THE BELL" 
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PRINT "TO SWING, TYFE A LETTER FROM A-Z" 
LET T= 0 

LET B= 90 

PRINT "THIS WILL COST YOU .25 - PUT YOUR QUARTER 
ON THE TERMINAL" 


PRINT 
PRINT "NOW MAKE YOUR SWING"; 
INPUT AS 


LET B= B + .25 
REM *#CHECK FOR INPUT EQUAL TO ONE OF CHARACTERS 
IN BS 
FOR I = 1708 

= MID® (B$,1,1) THEN 175 


LET C = INT ((1 + 1) / 2) 

GOTO 190 

LET C = 0 

LET D = INT ( RND (1) & & + 2) 

LET S=C+D . 

ON S GOTO 210,220, 250, 230, 240, 260, 270 
GOTO 280 


PRINT "BETTER EAT YOUR WHEATIES, YOU ONLY SCORED 1" 


GOTO 300 | 
PRINT "YOU CAN HARDLY PICK UP THE HAMMER, YOU 


‘SCORED 2" 


GOTO 300 

FRINT: "YOU MOVED THE WEIGHT UP TO 4" 

GOTO 300 

PRINT "YOU SCORED A & —- YOU MUST BE PRACTICING 
GOTO 300 

PRINT "YOUR 90 YEAR OLD AUNT COULD HAVE SCORED 3" 
GOTO 300 


PRINT "YOU MUST BE DOING YOUR PUSHUPS, YOU SCORED 6" 


GOTO 300 
PRINT "YOU ALMOST MADE IT - YOU SCORED “A 7" 
GOTO 300 

PRINT CHR# (7) . 

PRINT "CONGRATULATIONS! ! YOU RANG THE BELL! !" 
PRINT “YOU GET 8 POINTS! !" 

LET T=T+S 

PRINT "YOUR TOTAL SCORE IS ",T 

PRINT “YOU HAVE SPENT $"58 

GOTO 135 

END 


FOR. . NEXT: The Computer Repeats Itself * 119 


Note: Lines 155-180: If the letter entered by the player is one of 
the 8 letters stored in B$, this routine adds a bonus to the 
player's score. 

Line 200: This GOTO statement replaces 7 single GOTO’s. It 
is very useful when a variable such as S can have many dif- 
ferent values. | 


VARIABLE LIST 


T—Player’s total score 

B—Amount player has spent 

A$—Input character | 

B$—Contains a list of letters that add a bonus to the player’s score 
D—Random number (1-6) 

C—Bonus point if player enters one of the letters in B$ 
S—Player’s score for this game 


COMPUTER NOTES 


HP-2000 BASIC _ The multiple GOTO on line 200 has a differ- 
ent format on the HP-200. Replace line 200 
with: 

200 GOTO S OF 210, 220, 250, 230, 
240, 260, 270 
Replace line 160 with: 
160 IF A$=B$ (I, 1) THEN 175 
Atari BASIC Replace line 160 with: 
160 IF A$=BS$(1,1) THEN 175 


TI-BASIC Replace line 160 with: 
160 IF-A$=SEG$ (B$,I,1) THEN 175 
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9| FANCY PRINTING 
| (TAB) 


Writing It Your Way 


This function makes it easy for you 

to draw designs with the computer. 

It works like the tab key on a 

typewriter. It tells the computer to 

|| move a certain number of spaces across 
the line and then print. You can use 

numbers, variables or numeric 

expressions inside the (_). 


PROBLEMS 

. Rectangle 

. Designi-a-Scarf 
. HIHO 

. Lifeguard 
Shape 


ON AM AWE 


RECTANGLE 


You can use the computer to draw lots of. shapes. This program 
draws a rectangle. Use different numbers for the. height and width 
and see what your rectangle looks like. 

Try writing a program that draws a triangle. 


SAMPLE RUN 


THIS PROGRAM DRAWS A RECTANGLE 
TYPE IN HEIGHT» WIDTH 


710s2 

e ° 
° >. 
° ° 
> © 
® ° 
Ma ° 
o 
° Sd 
PROGRAM LISTING 


100 PRINT “THIS PROGRAM DRAWS R RECTANGLE" 
110 PRINT “TYPE IN HEIGHTs WIDTH" 
120 INPUT Held 

130 FOR I=1 TO WwW 

140 PRINT “-"5 

150 NEXT I 

1606 PRINT 

170 FOR I=1 Ta H-e 

180 PRINT "“@"5 TAB CW-1>5"0" 

190 NEXT I 

200 FOR I=1 TO wW 

210 PRINT “-"s 

220 NEXT I 

230 END 


Note: Line 140: The : tells the computer to remain on the same 
print line. Try changing the ; to a , and see what happens. 
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Line 180: This TAB function tells. the computer to print the 
next * in column (W-1). 

VARIABLE LIST 

H—Height of rectangle 

W—Width of rectangle 

COMPUTER. NOTES 


Atari BASIC —_ Does not have the TAB function. Appendix A de- 
scribes a method of converting these programs for the Atari. 
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DESIGN-A-SCARF 


Use your.own initials to design a scarf. You can find a nice design 
using this program. Notice that it is very similar to the one that made 
a rectangle. | 

Try using something besides your initials for the design. 

What must you change if you want to use 4 characters in your 
design? 


SAMPLE RUN 

DESIGN A SCARF WITH YOUR INITIALS 
INITIALS 

?MAZ 

I MAZ I 
I | I 
I MAZ I 
I I 
I MAZ I 
I I 
i MAZ I 
I I 
I MAZ I 
I I 
I MAZ I 
I I 
IMAZ I 
I I 
I MAZ I 
I I 
I MAZ I 
I I 
DONE 

PROGRAM LISTING. 


103 DIN 193) 
116 PRINT "DESIGN A SCARF WITH YOUR INITIALS” 
126 PRINT "INITIALS" 


139 INPUT I¢ 
146 LET H = 26 
150 LET W = 3@ 
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166 FOR I= 1 TOW 

17@ PRINT °"-"3 

186 NEXT I 

190- PRINT 

26@ FOR I = 1 70H - 2 STEP 2 

21@ PRINT "I°s | 

220 LET R= INT ¢ RND (1) * (CH - 6) + 1 
23@ PRINT TABC RosI$z TABC WH - 1393"1" 
24@ PRINT °I"s TABC W - 135"°I" 

2356 NEXT I | 

266 FOR I = 1 TOW 

276 PRINT "-"- 

286 NEXT I 

236 END 


VARIABLE LIST 


I—Characters to use in design 
H—Height of scarf outline 
W—Width of scarf outline 
R—Column to print design 
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HIHO 


The TAB function helps make interesting patterns like this one. 
Can you write a program that prints WIN in the shape of a V? 


SAMPLE RUN 
WATCH WHAT I CAN MAKE 


‘PROGRAM LISTING 


100 PRINT "WATCH WHAT I CAN MAKE" 
110 PRINT 

120 PRINT 

130 FOR K=1 T09 © | 

140 PRINT TABCKS “HI"$ TAR (20-k> > "HO" 
150 NEXT Kk 

160 PRINT TABC10>3 "HI" 

170 FOR K=11 TO 20 

180 PRINT TABC20-k>$"HO"$ TABCK 5 “HI” 
190 NEXT K 

200 END 
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LIFEGUARD 


You can have some fun with the TAB function too. In this game, 
you hear a swimmer calling for help and you try to throw him a life 
ring. If you hit him, you can save him—otherwise—it is Davy 
Jones’s locker for him. 

Change the program so it only gives you four tries to save the 
swimmer. 


SAMPLE RUN 


YOU MISSED» TRY AGAINE 
WHERE YOU WANT IT TO LAND?S 
0 HELP 


YOU MISSEDs TRY AGRIN! 
WHERE YOU WANT IT TO LAND?6 
HELP O 


YOU MISSED: TRY AGAIN! 
WHERE YOU WANT IT TO LAND?S 
O HELP 


YOU MISSED» TRY RGAINE 
WHERE YOU WANT IT TO LAND?TS 
THANKS$ YOU SAYED MY LIFES 


PROGRAM LISTING 


100. PRINT “USE THIS PROGRAM TO HELP A DROWNING SWIMMER" 
110 PRINT “TO THROW THE LIFE RING». INPUT 1-10" 
120 PRINT “WHERE YOU WANT IT TO LAND" 

130 LET X=INTCRNDC(1> ©1041) 

140 INPUT $ 

150 IF S=X THEN. 230 

160 IF S>X THEN 190 

170 PRINT TABCS>$°O"$ TAB CX) 3 “HELP” 

180 GOTO 200 

190 PRINT TAB(X> 5 “HELP”$ TAB(S> 3 “0” 

200 PRINT 

210 (PRINT “YOU MISSEDs TRY AGAIN?” 

220 GOTO 120 

230 PRINT “THANKS? YOU SAVED MY LIFE!” 

240 END 
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VARIABLE LIST 


S—Column where life ring is. thrown 
X—Column where swimmer is located 
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You can make 3-dimensional shapes like this one. The secret for 
success is to be very careful to count out each space. 


Once you understand how this program works, modify it. to make 
a shape of your own. 


SAMPLE RUN 
THIS PROGRAM PRINTS A VERY FRMILIAR SHAPE 


4 
¢ 
¢ 

e 


¢$¢¢0¢0¢ @ 
o¢¢¢0¢6¢06¢ 8  ¢ 


oe¢e¢e¢¢+¢ OOO 0 @ 


sd 
¢ 


¢ 
Sd 
$¢e¢¢0 0 ¢ 
+ 


PROGRAM LISTING 


100 PRINT “THIS PROGRAM PRINTS A YERY FAMILIAR SHAPE" 
110 PRINT TABC15>5"e" 

120 FOR S=1 TO 6 

130 PRINT TABC15-S)3 “@"S TABC15+5) 5 "e" 

140 NEXT 
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150 FOR T=5 TO 1 STEP -1 _ | . 

160 PRINT TAB(9>$"e"S TABCIS-T)$ ""3 TABCI5+T> 3 "e"5 
TAB(2193"0" | 

170 NEXT T 

190 .FOR U=1 TO 8 

190 PRINT TABC9)$ "e's TAB(15> 5"e"5 TAB(21) 3 "0" 

200 NEXT U 

210 FOR v=5 TO 1 STEP -1 

220 PRINT TAB(15-¥> 3 "e's TAB(15) 5 "e"3 TAB C15+¥> 5 “oe” 

230 NEXT ¥ | 

240 PRINT TAB(15)$ "0" 

250 END 


Note: Notice that each FOR . . . NEXT loop prints a different sec- 
tion of the cube. 
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Use this program to print party invitations for your next party. This 
one asks for your name, date and time of the party. and your 


address. 
Try. making an invitation of your own. 


SAMPLE RUN 


MAKE UP YOUR OWN PARTY INVITATIONS 
YOUR NAME7BECKY | 
YOUR ADDRESS?74525 ELMWOOD DRIVE 
DAY OF THE PARTY?MAY 30 

TIME OF THE PARTY71:00. P.M. 

O.K. HERE IS YOUR INVITATION 


PLEASE COME 
TO MY 


BIRTHDAY PARTY 


DATES MARY 30. 
PLACE s 4525 ELMWOOD DRIVE 


BY BECKY 


PROGRAM LISTING 


100 DIM ASC25] > BS (25) »C$ (25) +D$ C25) 

110 PRINT “MAKE UP YOUR OWN PARTY INVITATIONS” 
120 PRINT “YOUR NAME”s 

130 INPUT DS 

140 PRINT “YOUR ADDRESS" s 

150 INPUT AS 
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160 


170. 


180 
190 
200 
210 
elt 

ete 
220 
221 

e2e2 
230 
231 

23e 
240 
241 

e42 
243 
250 
260 
276 
280 
231 

28e 
290 
300 


PRINT 


INPUT B 
‘PRINT 
INPUT C 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
END 


“DRY OF THE PARTY'S 

$ 

“TIME OF THE PARTY'S 

$ | 

“O.K. HERE IS YOUR INVITATION” 
TAB (15> 3 "PLEASE COME” 


TABCI&S>s"TO MY" 


TAB (1493 "BIRTHDAY PARTY” 


TAB C15) 5 “DATES 
TABC1S>5 "TIME: 
TAB C15) 5 "PLACE: 


"$s BS 
"3C$ 
"SAS 


TABCIS> > “BY “sDS 
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FLEET 


Watch this fleet of rocket ships blast off from your video terminal. 
Try adding your own ships to this fleet. 


SAMPLE RUN 
WATCH THIS FLEET OF ROCKET SHIPS BLAST OFF? 


PROGRAM LISTING 


100 PRINT “WATCH THIS FLEET OF ROCKET SHIPS BLAST OFFS” 
105 PRINT 

106 PRINT 

107 PRINT 

108 PRINT 

109 PRINT 

110) LET R=INT CRND (1) e2042) 

120 PRINT TABCRD$°*"s TABCR+15)5°*" 

125) «6FOR I=1 TO 3 

130 PRINT TABCR-1)5°I I“S TABCRA14>3"I I” 

135 WNEXT I 

140 PRINT TABCR-2) 5° 7___\"5 TABCR+213> 5 "7S" 
150) 6FOR J=1 TO 15 

160 FOR I=1 TO 100 

170 NEXT I 

180 PRINT 

190 NEXT J 

200 GOTO 110 

210 END 
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Note: Lines 150-190: These statements make the fleet of ships 
blast off your video screen. 


Lines 160-170: Slows the computer. down so you can see 
what happens. 
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AWARD 
Award yourself a certificate of excellence-in horseback riding camp. 
We designed this one for a friend. ; 

Once you have this program working, try making up some of 
your own. 

You can use a similar program to print. blank checks or club 
forms. 


SAMPLE RUN 


‘INPUT YOUR NAME7LYN LIPSCOMB : 
eo STSH HHH HEH HHH HHH HEHEHE HHH OH S&H 


DEER CREEK WORSE CAMP 


THIS CERTIFICATE IS 
AWARDED TO 


LYN LIPSCOMB 
FOR SUCCESSFULLY COMPLETING RA PROGRAM 
IN HORSEMANSHIP AND RIDING “INSTRUCTION AT 
HORSE CAMP IN PALO ALTO: CALIFORNIA 


eeereteetet ee OOOOH HHH HH SHH HTH FHF FF OF FF O 


oteeeeeeeeeeeee t+ 0% 


PROGRAM LISTING 


100 DIM AS$Ce2S5S) 

110 PRINT "INPUT YOUR NAMES 

120 INPUT AS 

130 PRINT "© © © 0 ©0600 0006 0 0-6 © 
o$e¢¢ 6 © © © 0” 

140 FOR M=1 TO 5 

150 PRINT “o°s TABRC60>s "oe" 
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COTHTHHHHEH HHH HHH HHH HHH 8 


160 NEXT M 

170 PRINT “e's TABC2155 "DEER CREEK HORSE CRMP”s TRAB<C60> $5 “o" 

180 PRINT “o”°STABC60)5"e" — . 

190 PRINT “@°$STABC2Q>$s “THIS CERTIFICATE IS“5 TABC60)3 "oe" 

200 PRINT “e"STABCC6) 5 "AWARDED TO”"5 TABC6D> 5 “eo” 

210 FOR X=1 TO 3 ; 

220 PRINT “e"s TABC60) s “oe” 

230 NEXT X 

240 PRINT “o"5 TABC22) SASS TAB CEOS "o" 

250 PRINT “o"S TABC11>3 "FOR SUCCESSFULLY COMPLETING A 
PROGRAM" 5 TAB(60> 5 "oe" 

260 PRINT “e°STABC1O>5 "IN HORSEMANSHIP AND RIDING 
INSTRUCTION AT’5 TRB (60) 5 "eo" 

270 PRINT “e"STRBC14)>5 "HORSE CAMP IN PALO ALTO? 
CALIFORNIA" $ TRB C60) 5 “oe” 

es0 FOR M=1 TO 5 

290 PRINT “o's TABC6Q) 5 “oe” 

300 NEXT ™ 

305 PRINT "ee eee & © 6&6 6&6 © 6 6&6 € © @ 
eee ¢ 6@ © © e" 

310 END 


VARIABLE LIST 


A$—Name to use on the form 
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10| SUBSCRIPTS 


Where to Store 
Your Information 


You can store more than one number in 
a numeric variable by using subscripts. 
A subscripted variable is written A(3), 
| where A is.the variable name and the 

number inside the ( ) is the subscript. 
The subscript determines which of the 
numbers stored in the variables to use. 
For example: if you have 3 numbers 
in A, then A(1) is the first number, 
A(2) is the second, etc. You can 
input, print, and do calculations with 
subscripted variables just as with 
‘other numeric variables. 


PROBLEMS 
| 1. Most Valuable Player 
2. Bank Statement 
3. Pascal’s Triangle . 
4. Sea Battle 


MOST VALUABLE PLAYER 


Help your coach pick the most valuable player on your soccer team. 
You rate each of the best 6 players in 3 categories, and this program 
calculates a MVP score. 

Can you fix this program so it can tise more than 6 players? . 

Can you change'the program to add another rating category? 


SAMPLE RUN 


THIS PROGRAM HELPS YOU FIND THE 
MOST VALUABLE PLAYER ON YOUR SOCCER TEAM 
RATE. EACH OF THE 6 PLAYERS YOU THINK ARE THE BEST 
ON THE FOLLOWING CATEGORIES 1 .- 5(5 BEST) 
SOCCER SKILLS 
ATTITUDE 
ATHLETIC ABILITY 
THE COMPUTER WILL CALCULATE A MVP SCORE 


PLAYER 171,2,3 
FLAYER 272,2,5 
PLAYER 371,5,5 
FLAYER 474,3,4 
PLAYER 572,3,4 
PLAYER 675,3,4 
THE RATINGS ARE AS FOLLOWS 


PLAYER SKILL. ATTITUDE ABILITY MVP 


1 1 2 3. 11. 
2 2 2 5 16 
3 1 Ss 5 18 
4 4 3 4 23. 
5 2 3 4 17 
6 5 3 4 26 
PROGRAM LISTING 


95 DIM S(6),A(6),6(6),T(6) 

100 PRINT "THIS PROGRAM HELPS YOU FIND THE" 

11060 PRINT. "MOST VALUABLE PLAYER ON YOUR SOCCER TEAM" 

120 PRINT "RATE EACH OF THE 6 PLAYERS YOU THINK ARE 
THE BEST" 

130 PRINT "ON THE FOLLOWING CATEGORIES 1 - 5(5 BEST)" 
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140 


PRINT TAB( 10), "SOCCER SKILLS" 


150 PRINT TAB 10), "ATTITUDE" 

160 PRINT TAB( 10), "ATHLETIC ABILITY" 

170 PRINT "THE COMPUTER WILL CALCULATE A MVP SCORE" 

180 PRINT 

190 FOR I = 1 10.6. 

200 PRINT "PLAYER "31; 

210 INPUT S(1I),A(1), GCI) 

220 NEXT I 

230 FOR I = 1 TO 6 

240 T(I) = S(I) * 3 + ACI) + GCI) * 2 

250 NEXT I 

260 PRINT "THE RATINGS ARE AS FOLLOWS" 

265 PRINT 

270 PRINT "PLAYER SKILL ATTITUDE ABILITY MVP" 

300 FOR I = 1 TO 4 

310 PRINT "9 "srs" "sS(Iys" SACI) 3” 
"sG(I)3" "STI 

320 NEXT I 

350 END 

Note: Line 95: The DIM statement is used for numeric variables 
too. It saves space for you to store more than one number 
under the same name. Then, you use. subscripts to get to 
each number. 
Line 210: The ratings for player 1 are put in S(1), A(1) and 
G(1). The ratings for player 2 are in S(2), etc. 
Line 240: Another name for a subscripted variable is an 
array. 

VARIABLE LIST 


S—Soccer skills ratings 
A—Attitude ratings 
G—Athletic ability ratings 
T—MVP score 


COMPUTER NOTES 


The spacing produced. by the , (comma) and the ; (semicolon). 
varies with each version of BASIC. Therefore, this program may not 


SUBSCRIPTS: Where to Store Your Information * 139 


line up on your computer as shown .in the sample output. Experi- 
ment with the spaces used in the print statements in order to fix it for 
your computer. 


Atari BASIC Does not allow subscripted variables in an input 
statement. To convert, replace line 210 with: 
205 INPUT X, Y, Z 
206 LET S(I)=X 
207 LET A(l)=Y 
210 LET Gil) =Z 
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BANK STATEMENT 


Now you can print your own bank statement. Use this program to 
show how your money increased (or decreased) during the last few 
months. 


SAMPLE RUN 


BANKER’S PROGRAM - PRINTS A BANK STATEMENT 

INPUT BEGINNING BALANCE?7100 

INPUT TOTAL NUMBER OF DEPOSITS AND WITHDRAWALS?74 
NOW INPUT EACH DEPOSIT OR WITHDRAWAL 
WITHDRAWALS ARE (-—) 

AMOUNT 17200 

AMOUNT27300 

AMOUNTS?-—S00 

AMOUNT4?100 


2xEK BANK STATEMENT REX 


BEGINNING BALANCE $100 


# AMOUNT ACCOUNT 
BALANCE 

1 200 300. 

2 300 600 

3 -500 100 

4 100 200 


ENDING BALANCE $200 


PROGRAM LISTING 


100 DIM T(15),D(14) 

110 PRINT "“BANKER’S PROGRAM - PRINTS A BANK STATEMENT" 

120 PRINT “INPUT BEGINNING BALANCE"; 

130 INPUT A 

140 PRINT "INPUT TOTAL NUMBER OF DEPOSITS AND 
WITHDRAWALS" ; 
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INPUT 
PRINT 


) PRINT 


FOR I 
PRINT 
INPUT 


N 

"NOW INPUT EACH DEPOSIT OR WITHDRAWAL" 
“WITHDRAWLS ARE (-)" 

“= 1 TON 

"AMOUNT" s I3 


DT) 


NEXT I 
T(1) 2A 


FOR I 


= 1TON 


TCI +4) = TCI) + DCD 


NEXT I 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


-PRINT 
. PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
FOR I 
PRINT 


NEXT I 


PRINT 
PRINT 
PRINT 
END 


TAB(9) 5 "KEK BANK STATEMENT xa 
TAB(13)3 "BEGINNING BALANCE $";A 
"#", "AMOUNT", "ACCOUNT" 


TAB (29); "BALANCE" 


= 1 TON 
I,D(I),T(I+1) 


TAB(15)3:"ENDING BALANCE $"sT(N + 1) 


Note: Line 240: Try playing computer, and do this calculation 
yourself. Why does the program store the result in T (1+ 1)? 


VARIABLE LIST 


A—Beginning balance 
D— Deposits/withdrawals 
T—Running balance 


COMPUTER NOTES 


Atari-BASIC 


Replace line 200 with: 
200 Input X 
205 D(l) = X 
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-PASCAL'S TRIANGLE 


The numbers in this program have an interesting relationship. Can 
you figure out what it is? This is called Pascal’s triangle, named after 
the mathematician who invented this interesting arrangement of 
numbers: 


SAMPLE RUN 
HERE IS PASCAL’S TRIANGLE 


1 3 3 1 
1 4 4 1 
1 ra) 10 10 S 1 
PROGRAM LISTING 


100 PRINT "HERE IS PASCAL’S TRIANGLE” 
110. DIM EC10510) 

120 LET M=35 | 

130 REMeePUT NUMBERS INTO ARRAY 
140 LET ECt»13=0 

150 LET N=6 

160 FOR R=2 TON 

170 E(R1)=1 

180 FOR S=2 TO R-1 

190 E(R»S]=E(R-1»S-1] +E [R-19S] 
200 NEXT S 

205 E(R»RI=1 

210 NEXT R 

220 REMeeNDW PRINT TRIANGLE 
240 FOR I=1 TON. 

250 PRINT TABCM-CI~1> 06) 3 

260 FOR J=1 TO! © 

270 PRINT ELIsJ15" 

280 NEXT J 

290 PRINT 

300 NEXT I 

310 END 
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Note: Line 190: This statement calculates each row of numbers. 
Notice that you can add together numbers in ‘the same array. 


Line 110: The array E has 2 subscripts. This is called a 2 di- 

mensional array. A 2 dimensional array. has rows and col- 

umns. In this case, the array E has 10 rows and 10 columns. 
VARIABLE LIST 


E—Contains the numbers for Pascal’s Triangle 
N—Number of rows.to print 
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SEA BATTLE 


In this program you and the computer play the Sea Battle game. 
Deploy your ships on a 4 x 4 grid with each ‘ship occupying one 
square, and the computer will do the same. Then fire away! 

If this gets too tame for you, see if you can change the program to 
increase the size of the grid or the number of ships. 


SAMPLE RUN 
BATTLESHIP 


WOULD YOU LIKE INSTRUCTIONS CY 77 

YOU HAVE A FLEET OF 6 SHIPS. EACH SHIP IS NUMBERED 1» 

@> OR 3¢2 OF EACH NUMBER>. USING A 4 X 4 GRID | 

YOU AND THE COMPUTER FIRE TORPEDOES AT EACH OTHER. 

WHEN YOU ARE ASKED» INPUT YOUR SHOTCSUCH AS 2:3 

STAYING WITHIN 4). WHEN THE COMPUTER SHOOTSs IF 

IT HITS A SHIP>s INPUT WHICH SHIP IT HIT. WHEN THE COMPUTER 
MISSES: INPUT A 4. THE FIRST ONE TO DESTROY THEIR OPPONENT’S 
FLEET» WINS. GOOD LUCKS 2? 


SHOOTING AT 2 s 1 

74. 

I HAVE AR SCORE OF OO. 

NOW YOU TRY -— INPUT YOUR SHOT?2s3 
YOU MISSED 

SHOOTING AT 1 s 3 

4 

I HAVE A SCORE OF 0 

NOW YOU TRY - INPUT YOUR SHOT?1>1 


¢ e e e ‘3B o oO " e e ° ° 
YOU HIT A 3 

YOUR SCORE IS 3 

SHOOTING AT 2 s 2 

73 

° o e e B A N 

I HAVE A SCORE OF 3 

NOW YOU TRY —- INPUT YOUR SHOT72s;:2 
YOU MISSED 

SHOOTING AT 3 > 1 


a 
. 
¢ 
e 
Sf 
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4 
I HAYE A SCORE OF 3 
NOW YOU TRY - INPUT YOUR SHOT?73s3 


° Sd ° ° EB 0 0 ™ ° . ° e 
YOU HIT A 1 
YOUR.SCQRE IS 4 


PROGRAM LISTING 


100 DIM US[1] | 

105 REMeeTHIS PROGRAM SIMULATES A GAME OF BATTLESHIPee 

110 PRINT TAB(27> "BATTLESHIP" 

115 PRINT 

120 PRINT 

125 PRINT | 

130 PRINT “WOULD YOU LIKE INSTRUCTIONS (Y/N "3 

135 INPUT US 

140 IF US="N" THEN 205 

145 PRINT “YOU HAVE A FLEET OF 6 SHIPS. EACH SHIP IS 
NUMBERED 1°" | | 

150 PRINT “2s OR 3¢2 OF ERCH NUMBER>. USING A 4 X 4 GRID” 

155 PRINT “YOU AND THE COMPUTER FIRE TORPEDOES AT EACH 


‘OTHER. ™ 

160 PRINT “WHEN YOU ARE ASKED» INPUT YOUR SHOT.CSUCH AS 
293" 

165 PRINT “STAYING WITHIN #4. WHEN THE COMPUTER SHOOTS» 
If” 


170 PRINT “IT HITS A SHIPs INPUT WHICH SHIP IT HIT. 
WHEN THE COMPUTER” 

175 PRINT “MISSES: INPUT A 4. THE FIRST ONE TO DESTROY 
THEIR OPPONENT’ S” 

180 PRINT “FLEETs WINS. GOOD LUCK! 2s“ 

185 PRINT 

190 PRINT 

195 PRINT | 

200 REMeeSET SIZE OF GRIDOo 

20S DIM Cl4s4) +P 42 4] 

210 DIM Tle} 

215 REMeeSET ARRAYS TO ZEROCe 

220 FOR I=1 TO 4 

2e5 FOR J=1 TO 4 

230 CLIsJ3I=0 

235 PCIsJ]=0 

240 WEXT J 

245 NEXT I 

250 1Tf£11]=0 

255 Tl2J=0 
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REMe@eSET L TO SIZE. OF GRIDS 

L=4 

N=0 

REMe@eSET UP COMPUTER’S SHIPS ON L X L GRIDOo 


FOR J=1 TO 2 

FOR I=1 TO 3 
R=INT CRND (1) L> +1 
S=INT CRND (1) oL> +1 
CIR+S]=I 

NEXT I 

NEXT J 


REMOoGET COMPUTER’S TARGEToo 


M=M+1 

IF M>Let THEN 465 

R=INT CRND (1) oL> +1 

S=INT CRND (1) @L> +1 

IF PERsS1>0 THEN 330 

PRINT “SHOOTING AT “sS"5"SR 

INPUT H 

PIR» S1=H 

IF H=4 THEN 380 

PRINT “o Sg B. A N 6 ° 


5 e ‘o" 


TLl17=T C13 +H 

IF Tl1]>11 THEN 465 

PRINT “I HAVE A SCORE OF “ST{1] . 
PRINT “NOW YOU TRY - INPUT YOUR SHOT"s: 
INPUT Ros 

IF CCR»sSI]=5 THEN 415 

IF CERsSI>0 THEN 425 

PRINT “YOU MISSED" 

GOTO 320 

PRINT “SPLASH! YOU ALREADY SHOT THERE???” 
GOTO 3e0 

PRINT CHRS¢/7) 

PRINT “oe e ° ° B 0 0 M od 
o ° o" 

PRINT “YOU HIT A “SCERsS) 

T C27 =T C21 +C CRs 8] 

PRINT “YOUR SCORE IS “sTCfel 

CIRsST=5 

IF Tl2]>11 THEN 465 

GOTO 320 

PRINT TAB(23> "GAME OVER" 

IF Tl2@J>TC1] THEN 485 

PRINT “22 2COMPUTER WINS?288" 


GOTO 490 
PRINT. “£22vOu WIne??” 
PRINT 
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495 
S00 
505 
510 
515 
520 
525 
530 
535 


Note: 


PRINT 

PRINT | 
PRINT “WANT A NEW FLEET AND A NEW GAME CY/ND "3 
INPUT US 

IF US="¥" THEN 115 

PRINT | 

PRINT "BETTER LUCK NEXT TIME!” 

PRINT 

END 


Line 130: When the instructions to a game are fong, this 
statement gives the player the option of skipping the 
instructions. 


Line.205: C and P are called 2 dimensional arrays. These ar- 
rays look like the grid you use to play this game. Each num- 
ber occupies one cell in the grid. 


Line 355: Each time the computer shoots, the result of the 


shot is put in the player’s array. This keeps the computer 
from shooting at the same place twice. 


VARIABLE LIST. 


C—Computer’s ships on the 4 x 4 grid 
P—Player’s ships on the 4 x 4 grid 
T—Score for each side 
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11; SUBROUTINES 


How the Pros Do It 


Subroutines are small programs that 
a larger program uses over and over. 
Instead of including them every time 
you need them, they only appear 
once near the end of a program. 

A GOSUB statement in the large 
program tells the computer to leave 
that program and go to the subroutine. 
When the subroutine is finished, a 
RETURN statement tells the computer 
to go back to where it came from 

in the main program. 


PROBLEMS 
1. Birthday 
2. Math Quiz 
3. Tennis 


BIRTHDAY 


How many days before your birthday? How many days between 
now and Christmas? This program can tell you. It converts each date 
into a Julian date and then calculates the difference. The Julian date 
is the number of days since some predetermined date, and in this 
program, that date is 1960. Notice that the program has to add ex- 
tra days for leap years. 


SAMPLE RUN 


USE THIS PROGRAM TO FIND OUT HOW MANY DAYS UNTIL YOUR 
BIRTHDAY 

INPUT TODAY’? DATE AS FOLLOWS 

YEAR?TI1931 

MONTH (1-12) 711 

DAY ?4 , 

INPUT DATE OF YOUR NEXT BIRTHDAY 

YEAR? 1 9&2 

MONTH (1-12) 74 

DAY?1 

THERE ARE 147 DAYS UNTIL YOUR BIRTHDAY 

AGRIN 

TY 

INPUT DATE OF YOUR NEXT BIRTHDAY 

YEAR?719931 

MONTH (1-12) 711 

DAY 730 

THERE ARE 26 DAYS UNTIL YOUR BIRTHDAY 

RGARIN 

TN 


PROGRAM LISTING 


100 DIM ASC1]>DL121 

105 PRINT “USE THIS PROGRAM TO FIND OUT HOW MANY DAYS 
UNTIL YOUR BIRTHDAY” | 

110 PRINT “INPUT TODAY’S DATE AS FOLLOWS" 

115 GOSUB 195 | 

120 GOSUB 270 

125 REMeNOW FIND OUT HOW MANY DAYS SINCE 1960 

130 GOSUR 310 

135 C=T 
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140 
145 
150 
155 
160 
165 
170 
175 
180 
135 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
280 
285 
290 


295: 


300 
305 
310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
360 


PRINT 
GOSUB 
GOSUB 
N=T-C 
PRINT 
PRINT 
INPUT 


IF AS="¥" 


“INPUT DATE OF YOUR NEXT BIRTHDAY” 
ero 


310 


“THERE ARE "$N3" DAYS UNTIL YOUR BIRTHDAY” 
“AGAIN” 

AS 

THEN 140 


GOTO 360 


REMeo 
REMee 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


REMee 
REMee 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


SUBROUTINE. | 
SETS D=TO NUMBER OF DAYS IN EACH MONTH 


DC1]=31 

D2} =2e8 

D3] =31 

D4] =30 

DS] =31 

D6] =30 

DC/7]=31 

Drey=31 

D(9]=30 

Df10)=31 
DC11]=30 
DCiedy=31 
RETURN 


SUBROUTINE 
INPUTS YEAR MONTH AND DAY 
“YEAR” 5 

Y 

“MONTH (1-12)"3 

" 

“DAY'S 

A 


RETURN 

REMee SUBROUTINE 

REMee CALCULATES NUMBER OF DAYS SINCE 1960 
T=¥-1960 

L=INT (T74) 

T=CT—-L) ©3654L 0366 

FOR I=1 TO M-t 

T=T*D CII 


NEXT I 
REMee ADD IN DAYS OF THIS MONTH 
T=T+A 


RETURN 


END 


Note: Line 115: This GOSUB statement tells the computer to exe- 
cute statement number 195 next. 
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Line 255: The RETURN statement tells the computer to go 
back and execute the line after the GOSUB statement. Sub- 
routines are useful when you want to do the same calcula- 
tion with different numbers. 


Lines 315-320: This statement figures out how many leap 
years since 1960. 


Lines 330-340: Add in all the days of each month of the 
current year. 


Lines 195-250: Since the number of days in each month 
won't change, it is easier to put these values into the pro- 
gram. Otherwise, you would have to input them every time. 


VARIABLE LIST 


D—Array containing the number of days for each month in the year 
Y—Year | 
M—Month 

A—Day 

T—Number of days since 1960 for today’s date 

C—Number of days since 1960 for next birthday 

N—Number of days between T and C 

L—Number of leap years since 1960 
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MATH QUIZ 


Here is a chance to test your’math skills-on the computer. You can 
do addition, subtraction, multiplication and division. The computer 
gives you the problem, and you input the answer. 

Can you change this:program so it keeps track of the number of 
correct answers? 


SAMPLE RUN 


INPUT MATH OPERATION YOU WANT Ta TRY 
ADDITION 
SUBTRACT ION 
MULTIPLICATION 
DIVISION 
- STOP 
TO CHANGE OPERATIONS TYPE -1 AS A ANSWER 
INPUT OPERATION SYMBOL?7+ 
INPUT LIMITS OF YOUR NUMBERS71:10 
INPUT NUMBER OF INCORRECT RESPONSES?2 
S + 3 =78 
YOU ARE RIGHT? 
S +e =76 
SORRY . . . TRY AGARIN?S 
THAT IS 2 TRIES 
THE CORRECT ANSWER IS ? 
4 +1 =?~-1 
INPUT OPERATION SYMBOL7T- 
INPUT LIMITS OF YOUR NUMBERS71510 
INPUT NUMBER OF INCORRECT RESPONSES72 
6 - 1 =75 
YOU ARE RIGHT? 
3 ~ 1 =72 
YOU ARE RIGHT! 
7 - 5 =7~1 
INPUT OPERATION SYMBOL? 


+ 


a 


PROGRAM LISTING 


100 DIM 0%(10) ,AS(1) 

105 LET O06="+-%/xX" 

110 PRINT “INPUT MATH OPERATION YOU WANT TO TRY" 
115 PRINT “+ ADDITION" 

120 PRINT "- SUBTRACTION” 
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125 
130 
13S 
140 
145 
150 


155. 


140 
145 
170 
175 
180 
185 
190 
195 
200 
205 
210 


215 


220 
225 
230 
2335 


240. 


245 
250 
255 
260 
265 
270 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
325 
330 
335 
340 
341 
342 
343 
345 
350 
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PRINT “x MULTIPLICATION" 

PRINT "/ DIVISION” ’ 

PRINT" X STOP" | 
PRINT "TO CHANGE OPERATIONS TYPE -1 AS AN ANSWER” 
PRINT "INPUT OPERATION SYMBOL "; 

INFUT A® | 

REM xxxF IND OUT WHAT OPERATION NUMBER 

GOSUB 505 | 

PRINT "INPUT LIMITS OF YOUR NUMBERS(L,H) " 

INPUT J,K . 
PRINT’ INPUT. NUMBER OF INCORRECT RESPONSES"; 
INPUT T 

REM &x*GET 2 RANDOM NUMBERS M AND N 

GOSUB 370 

I=0 | 

ON A GOTO 210, 245, 285,325 

REM *kkADDITIONKES 


-L=M+N 


PRINT Mp + 3 .N3 
INPUT P 

IF P<O THEN 145 
IF P=lL THEN 435 
GOSUB 455 

GOTO 220 

REM xx SUBT 
L=M-N 

PRINT Ms" - "sNs" 
INPUT P 

IF P<O THEN 145 
IF P=L THEN 435 
GOSUB 455 

GOTO 260 

REM xx MULT 
L=M*N 

PRINT Mp" "SNe" = "3 
INPUT P 

IF P<Q THEN 145 
IF P= THEN 435 
GOSUB 455 

GOTO 300 

REM xx DIV 

L=M/N 

PRINT M3" / "3N3” 
INPUT P 

IF E>=T THEN 305 
PRINT 

IF W=6 THEN 250 
IF P<O THEN 145. 
IF P=L THEN 435 


i 
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355 GOSUB 455 

‘360 GOTO 300 

365 REM xx*xSUBROUTINE 

370 REM **kFINDS 2 RANDOM NUMBERS WITHIN 
THE LIMITS OF J & K . 

375 M=INT(RND (1) kK+1) 

380. IF M<J THEN 375 

385 N&=INTCRND (1) kK+1) 

390 IF NCJ THEN 385 

395 IF A=1 THEN 425 

400 IF A&3 THEN 425 

405 IF M<=N THEN 375: 

415 IF INT(M/N) XN=(M/N) XN THEN 425 

420 GOTO 375 

425 RETURN 

430 REM xxXxSUBROUTINE _ 

435 REM ***PRINTS IF THE RESPONSE IS CORRECT 

440 PRINT "YOU ARE RIGHT!" 

445 GOTO 190 

450 REM *kxSUBROUTINE 

455 REM xxkxXPRINTS IF THE RESPONSE WAS WRONG 


460 I=It+1 
465 IF I>=T THEN 480 

470 PRINT "SORRY TRY AGAIN"; 
475 RETURN 


480 PRINT "THAT IS "313" TRIES" 
485 PRINT "THE CORRECT ANSWER IS "sb 
490 GOTO 190 

495 REM *xkSUBROUTINE 

SOO REM *&*GETS THE OPERATION NUMBER FROM AS 
505 FOR A=1 TO 5 

S10 IF AS=MID$(0%,A,1) THEN 530 

S515 NEXT A 

520 PRINT "TYPE +,-,%, OR /" 

525 GOTO 145 

S30 IF A=S THEN 540 

535 RETURN 

540 END 


Note: Line 365: It:is smart to set your subroutines off with REM 
statements. Then you can find them quickly if you are 
changing your program. 

Lines 415-420: These statements force the result of M/N to 
be a whole number. 
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VARIABLE LIST 


A$ —Math operation code 
J —Lower limit of numbers 


K —Upper limit of numbers 

T | —Number of incorrect responses 
I | —Number of responses 

A  —Operation number 


M,N —Numbers used in calculation 
L —Result of calculation 
P —User’s response 


COMPUTER NOTES 


Atari-BASIC Replace line 510 with: 

510 IF A$ = O$(A,A) THEN 530 
HP-2000 BASIC Replace line 510 with: 

510 IF A$ = O$(A,A) THEN 530 
TI-BASIC Replace line 510 with: 

510 IF A$ = SEG$(O$,A, 1) THEN 530 
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TENNIS 


Try playing tennis with the computer. Each time the ball is hit to 
you, type in a number from 1 to 4. Watch out! the computer has 
been taking lessons. 

Try changing the program to keep track of the set score. 

Can you add other shots to the game or change it so the rally can 
go longer? 


SAMPLE RUN 


DO YOU WANT INSTRUCTIONS? 

?Y 

YOU ARE PLAYING /NO ADD/ TENNIS WITH THE COMFUTER. 
THE FIRST PLAYER TO GET 4 POINTS WINS THE GAME. 
OK... THE COMPUTER IS SPINNING THE RACQUET 

THE COMPUTER WINS THE SPIN AND ELECTS TO SERVE. 
READY...BEGIN! ! 


COMPUTER SERVES SMASH TO BACKHAND 
YOU —INPUT YOUR SHOT(1-4) ?1 

HIT SOFT BALL SHORT 

COMFUTER LOB HIGH TO FOREHAND 

YOU ~INPUT YOUR SHOT(1-4) ?3 

HIT BLAZING FOREHAND TO WIN POINT 
SERVER: 0 

OPPONENT: 1 


COMPUTER SERVES SMASH TO FOREHAND 
YOU -—-INPUT YOUR SHOT(1-4) ?2 

HIT SOFT BALL SHORT 
COMPUTER HIT BALL QUT OF COURT 
SERVER: 90 

OPPONENT: 2 


COMFUTER SERVES FAULT 
COMPUTER SERVES FAULT 
DOUBLE FAULT 

SERVER: 0 

OPPONENT: 3 


COMPUTER SERVES HIT SOFT SHOT 


YOU -INPUT YOUR SHOT(1-4) 71 
HIT BALL OVER FENCE 
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SERVER: 1 
OPPONENT: 3 


COMPUTER SERVES HIT SOFT SHOT 
YOU -INPUT YOUR SHOT(1-4) ?2 
HIT BALL DEEP TO BACKHAND 
COMPUTER LOB HIGH TO FOREHAND 
YOU -INPUT YOUR SHOT (1-4) ?1 
SMASH OVERHEAD INTO NEXT COURT 
SERVER: 2 

OPPONENT: 3 


PROGRAM LISTING 


95 DIM A$(t) 

100 PRINT "TENNIS" 

101 PRINT "DO YOU WANT INSTRUCTIONS?" 
102 INPUT AS 

103 IF AS = "N" THEN 105 

104 GOSUB 450 

105 DIM CS) 

106 T 
107 0 
108 S 
110 
111 F 
115 ON T GOTO 120,180 

120 PRINT “COMPUTER SERVES "; 


125 KR = INT ( RND (1) * 5 + 1) 
130 GOSUB 340 | 
131 IF N = 0 THEN 135 


132 IF N = 1 THEN 115 
13S IF N = 2 THEN 275 
135 PRINT "YOU "; 

140 GOSUB 230 

145 GOSUB 425 

146 IF N = 1 THEN 275 
150 PRINT “COMPUTER "3; 
ISS R= INT ¢ RND (1) 4% 5 + 1) 
160 GOSUB 495 

161 IF N = 1 THEN 275 
165 PRINT “YOU "; 

170 GOSUB 230 

175 GQSUB 565 

176 GOTO 275 

180 PRINT “YOU SERVE 
185 GOGSUB 230 

190 GOSUB 340 
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191 
192 
193 
195 
196 
200 
201 
205 
210 
215 
216 
220 
221 
225 
226 
229 
230 
235 
240 
244 
242 
243 
244 
245 
250 
255 
260 
265 
370 
275 
280 
285 
286 
290 
295 
300 
305 
310 
315 
320 
325 
330 
335 
339 


340 


341 
S45 
SuQ 
SUS 


J. 
‘ca = g 


IF N O THEN 195 
IF N 1 THEN 115 
IF N 2 THEN 275 


PRINT "COMPUTER "s 


R = INT ¢ RND (1) * 5 + 1) 


GOSUB 425 

IF N = 1 THEN 275. 
PRINT "YOU "$s 
GOSUB 230 

GOSUB 495 

IF N = 1 THEN 275 
PRINT "COMPUTER "$ 


R.= INT ¢( RND (1) * 5 + 1) 


‘GOSUB 565 

GOTO 275 

REM XASUBROUTINE 

REM xx GETS PLAYER’S SHOT 
PRINT “-INPUT YOUR SHOT(1-4) ‘3 


INPUT & 

IF B&B > 4 THEN 243 

GOTO 245 

PRINT “INPUT A NUMBER FROM 1 TO 4" 
GOTO 240 

FOR I = 1 7T04 


= INT ( RND (1) & 5 + 1) 


NEXT I 


FR = C(B) 


RETURN 

REM &* PRINTS SCORE 
PRINT "SERVER: "3S 
PRINT "OPPONENT: "30 
PRINT 

IF S = 4 THEN 305 

IF 0 = 4 THEN 315 
GOTO 111 

PRINT "SERVER WINS" 
GOTO 320 

PRINT “OPPONENT WINS” 
IF T = 1 THEN 330 
GOTO 106 


T=2 


GOTO 107 
REM *& SUBROUTINE 
REM *x RESULT OF SERVE 


N= 90 


ON R GOTO 350, 360,370, 405, 415 
PRINT “SMASH TO BACKHAND” 
RETURN 
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360 


PRINT "SMASH TO FOREHAND" 


365 RETURN 

370 PRINT "FAULT" 

375 F=F +1 

380 IF F = 2 THEN 390 

384.N = 1 

385 RETURN ; 

390 PRINT "DOUBLE FAULT" 

395 O=O+ 2 

399 N= 2 

400 RETURN 

405 PRINT "HIT SOFT SHOT" 

410 RETURN 

415 PRINT "FAULT INTO NET" 

420 GOTO 375 

424 REM ** SUBROUTINE 

425 REM ** RESULT OF RETURN 

426 N= 0 

430 ON R GOTO 435,445, 455, 470, 485 
435 PRINT "HIT BALL LOW TO FOREHAND” 
440 RETURN 

445 PRINT "HIT SOFT BALL SHORT" 
450 RETURN. 

455 PRINT "HIT BALL INTO NET" 

440 S=S +1 

461 N = 1 

465 RETURN 

470 PRINT “HIT BALL OVER FENCE” 
475 S=S +1 

A79 N= 1 

480 RETURN 

485 PRINT "HIT BALL DEEP TO BACKHAND" 
490 RETURN 

494 REM &* SUBROUTINE 

495 REM *x SECOND ROUND OF HITS 
499 N= 0 | 

S00 ON R GOTO 505,520,530,540, 550 
S05 PRINT "RUSH NET AND MISS VOLLEY" 
Si0O=O+1 

Si4N = 1 

S15 RETURN 

S20 PRINT "SMASH OVERHEAD DEEF TO BACKHAND" 
525 RETURN 

S30 PRINT "HIT FOREHAND SHORT" 
S35 RETURN 

S40 PRINT "LOB HIGH TO FOREHAND" 
S45 RETURN 

SSO PRINT "HIT BALL QUT OF COURT" 


we 1 


N= 1 
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SSS O=O+ 1 


tod aS AS 
360 
364 
OS 
379 
575 
280° 
par = be 
290 
SFIS 
600 
605 


RETURN 

REM xx SUBROUTINE 

‘REM *&& FINAL POINT 

ON R GOTO 375,590, 605, 620, 635 

PRINT "HIT WINNER DOWN LINE” 
O=0+ 1 

RETURN 

PRINT "FALL DOWN SLIDING FOR A VOLLEY" 
S=S +1 

RETURN 

PRINT “SMASH OVERHEAD INTO NEXT COURT" 


610 S=S+1 

615 RETURN 

620 PRINT "HIT BLAZING FOREHAND TO WIN POINT" 

625 0=0O0+1 

630 RETURN 

635 PRINT "RUN INTO FENCE .TRYING TO HIT BALL” 

640 S=S5 + 1 

645 RETURN 

650° REM xxINSTRUCTION SUBROUTINE | 

655 PRINT "YOU ARE PLAYING /NO ADD/ TENNIS WITH THE 
COMPUTER. " 

660 PRINT “THE FIRST PLAYER TO GET 4 POINTS WINS THE 
GAME. " 

665 PRINT "OK...THE COMPUTER IS SPINNING THE RACQUET" 

670 PRINT "THE COMPUTER WINS THE SPIN AND ELECTS TO 
SERVE." 

675 PRINT "READY...BEGIN!!" 

680 RETURN 

685 END 

Note: Lines 240-265: This subroutine uses a little trick in order to 
get a random number for the player's response.. 
Notice how each subroutine does one task: that is, a subrou- 
tine gets the result of a serve, or result of a return. This 
makes it easier for you to add to or change the program later 
on. 

VARIABLE LIST 

T—Determines who serves 

T= 1 Computer serves 
T = 2 Player serves 
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S—Score for server 

O—Score for receiver of serve 

F—Number of faults from serve | 
R—Random number determining result of hit 
B—Player’s input 

A—Result of player’s shot 

N—Determines when point is over 
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12 | GAMES 
Now You Can Do 
Your Own Thing 


Now you are ready to write your own 
computer games. Most computer games 
contain a set of instructions, some 
player options, random consequences 
and a scoring system. Try.these games 
first and then make-up one of your own. 


| PROBLEMS 
1. Ski Weekend 
2. Backpack 


SHI WEEKEND 


Your parents say you may join your friends for a ski weekend in 6 
weeks if you earn enough money for the trip. Your share of the 
weekend will cost $145. See if you can make it. 

You can change the program to a game saving money for a ten 
speed, some camping equipment or something else special. Try 
changing the jobs also. 


SAMPLE RUN 


WANT INSTRUCTIONS? PY 

YOU HAVE 6 WEEKS TO EARN #145 FOR A SKI WEEKEND 
YOU HAVE A CHOICE OF 3 JOBS 

1. -PAPER ROUTE — YOU CAN EARN $25 PER WEEK 


2. BABYSITTING — YOU CAN EARN $1.25 PER HOUR 
3. CAR WASH —- YOU CAN EARN $2.00 PER CAR 


INPUT THE JOB NUMBER 1 - 3 TO CHOOSE A JOB 

IF YOU WORK HARD AND: RAVE A LITTLE LUCK 

YOU WILL HIT THE SLOPES IN 46WEEKS 

HAPPY HOLIDAYS 

CHOOSE JOB ?2 

2. BABYSITTING —- YOU CAN EARN $1.25 PER HOUR 


WEEK 1 

THE FARENTS LOVE YOU 

ADD $4.00 IN TIPS 

YOU HAVE EARNED @ 29 SO FAR 


CHANGE: JOBS ?N 

WEEK 2 

THE PARENTS LOVE YOU 

ADD $4.00 IN TIPS 

YOU HAVE EARNED € 58 SO FAR 
CHANGE JOBS ? 


WEEK 3 | | 
THE CHILD HAS A FRIEND OVER 
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YOUR WAGES ARE INCREASED TO $31.50 
YOU HAVE EARNED % 89.5 SO FAR 


CHANGE JOBS ?N 


WEEK 4 

YOUR EXTRA-CURRICULAR ACTIVITIES INTERFERE WITH YOUR JOB 
YOU LOSE $8.00 IN EXPECTED INCOME 

CHOOSE ANOTHER JOB 

YOU HAVE EARNED $ 106.5 SO FAR 


CHOOSE JOR ?1 
1. PAPER ROUTE —- YOU CAN EARN $25 PER WEEK 


WEEK 5 | 
YOU HAVE SEVERAL HEAVY TIPPERS WHEN YOU COLLECT 
INCREASE YOUR WAGES TO 29 

YOU HAVE EARNED ¢$ 135.5 SO FAR 


CHANGE JOBS ?N. 


WEEK 6 

RAIN RUINS HALF OF YOUR PAPERS 

YOU LOSE HALF OF YOUR WEEK’S EARNINGS 
YOU HAVE EARNED ¢ 148 SO FAR 


HAPPY HOLIDAYS!!! 
YOU EARNED ¢ 148 IN & WEEKS 


WANT TO TRY AGAIN? 

PY 

CHOOSE JOB 73 

3. CAR WASH —- YOU CAN EARN $2.00 PER CAR 


WEEK 1 

YOU GET A FRIEND TO HELP YOU 

TOGETHER YOU DO 32 CARS. YOUR SHARE IS %52.00 
YOU HAVE EARNED 3 32 SO FAR 


CHANGE JOBS ?N 
WEEK 2 
YOU GET A FRIEND TO HELP YOU 


TOGETHER YOU DO 32 CARS. YOUR SHARE IS $32.00 
YOU HAVE EARNED ¢@ 64 SO FAR 


GAMES: Now You Can Do Your Own Thing « 165 


PROGRAM LISTING 
95 DIM AS(1) 


1Q0 
110 
120 
130 
140 
145 


150 


140 
165 
170 
180 
185 
200 
210 
250 
260 
270 
280 
290 
300 
305 
306 
310 


315. 


320 
340 
341 
S42 
34S 
3435 
330 
360 
370 
380 
39S 
400 
410 
4135 
420 
430 


441 
445 
455 
500 
510 


FRINT "WANT INSTRUCTIONS? 


INPUT At 
IF At = "Y" THEN 800 
LET T = 145 
LET W= 0 
E=0 
FRINT “CHOOSE JOB 
INPUT J 
GOSUB 400 | 
REM WEEK NUMBER 
wWw=W+ il 
PRINT 
PRINT "WEEK "sW 


ON J GOTO 500, 600, 700 

PRINT "YOU DIDN’T MAKE IT — SORRY” 

PRINT "MAYBE NEXT YEAR" 

PRINT “WANT TO TRY AGAIN? 

INPUT AS 

IF AS = "Y" THEN 130 

GOTO 999 

PRINT 

PRINT "HAPPY HOLIDAYS!!!" 

PRINT “YOU EARNED $ "s3E3" IN "pW3" WEEKS" 

PRINT 

GOTO 270 

PRINT "YOU HAVE EARNED $ "s3Es" SO FAR" 

IF € > = T THEN 305 

PRINT 

IF Wo= 6 THEN 250 

IF F = 1 THEN. 150 

PRINT "CHANGE JOBS 

INPUT A 

IF AS = "Y" THEN 150 

GOTO 180 

REM *kk SUBROUTINE 

REM xx DESCRIBES JOBS 

ON J GOTO 415, 430,445 . 
PRINT "1. PAPER ROUTE - YOU CAN EARN $25 FER WEEK" 
RETURN 

PRINT "2. BABYSITTING -— YOU CAN EARN $1.25 PER 
HOUR" 

RETURN 


PRINT "3S. CAR WASH - YOU CAN EARN $2.00 PER CAR" 


RETURN 
REM ** PAPER ROUTE 


R= INT ( RND (1) * 6 + 1) 
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SiS F= 0 
520 ON R GOTO 525,545,560,575,585,592 | 
S25 PRINT "YOU SELL 10 EXTRA PAPERS THIS WEEK" 


326 PRINT "YOUR WAGES INCREASE TO $28.50" 

vSo0O E = E + 28.5 

3490 GOTO 340 

245 PRINT "YOU HAVE SEVERAL HEAVY TIPPERS WHEN YOU 
COLLECT” 

346 PRINT "INCREASE YOUR WAGES TO "29.00" 

vO EF = E + 29 

vo GOTO 340 

360 PRINT "YOU WIN -A CASH BONUS FROM THE PAPER" 

361 PRINT "ADD AN EXTRA $25.00 TO YOUR EARNINGS" 


565 E= & + SO 

570 GOTO 340 

575 PRINT "YOU ARE WAIT-LISTED FOR A ROUTE” 

576 PRINT "LOSE 1 WEEK’S SALARY” 

S80 F = 1 

581 GOTO 340 

S85 PRINT "RAIN RUINS HALF OF YOUR PAPERS" 

S84 PRINT "YOU LOSE HALF OF YOUR WEEK?S EARNINGS" 

590 E = £ + 12.5 

591 GOTO 340 . 

S92 PRINT "THE NEWSPAPER FOLDS AND YOU ARE OUT OF WORK" 

S593 PRINT "YOU GET HALF A WEEK’S SALARY - CHOOSE 
ANOTHER JOB" 

595 F = 1 

599 GOTO 340 

600 REM k* BABYSITTING 

601 R = INT ( RND (1) & 6 + 1) 

602 F = 0 

603 ON R GOTO 605,615, 630, 645, 640, 675 

605 PRINT "THE CHILD GETS SICK AND YOU ONLY WORK HALF 
A WEEK" 

610 PRINT "YOU EARN $12.5 AND MUST CHOOSE ANOTHER JOB" 

611 E=E + 12.5 

612 F =1 

613 GOTO 340 

615 PRINT "THE PARENTS AREN’T SATISFIED WITH YOUR WORK" 

616 PRINT "AND HIRE SOMEONE ELSE — CHOOSE ANOTHER JOB" 

617 PRINT "YOU ONLY EARN $10.00" 

620 E = E + 10 

622 F = i 

625 GOTO 340 . 

630 PRINT “YOUR EXTRA-CURRICULAR ACTIVITIES INTERFERE 
WITH YOUR JOB" . 

631 PRINT "YOU LOSE $8.00 IN EXPECTED INCOME” 

632 PRINT "CHOOSE ANOTHER JOB" 
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635 E = E + 17 

640 GOTO 340 | 

645 PRINT "THE PARENTS LOVE YoU" 

646. PRINT "ADD $4.00: IN TIPS" 

650 E= E +.29 

655 GOTO 340 | 

660 PRINT “THE CHILD HAS A FRIEND OVER": 

661 PRINT "YOUR WAGES ARE INCREASED TO #31.50" 

665 E = E + 31.5 

670 GOTO 340. | 

675 PRINT "THE PARENTS WERE GONE LATER THAN PLANNED" 

676 PRINT "YOUR WAGES ARE $30.00" 

680 E = £ + 30 

685 GOTO 340 

700 REM *x CAR WASH 

701 R = INT ¢( RND (1) *.6 + 1) 

7O5 F=0 

706 ON R GOTO 710,720,730, 745. 765,780 

710 PRINT. "YOU GET SOME BIG TIPS" 

711 PRINT “YOUR WAGES RISE TO $35.00" 

7iIS ESE + 35: 

716 GOTO 340 

720 PRINT "YOU HAVE LOTS OF CUSTOMERS" 

721 RINT "YOUR EARNINGS ARE $38.00" 

au E—E = € + 38 

726 GOTO 340 | 

730 PRINT “YOU GET @ FRIEND TO HELP YOU" . 

731 PRINT "TOGETHER YOU DO 32 CARS. YOUR SHARE IS 
$32.00" 

735 —E = E + 32 

740 GOTO 340 . | 

745 PRINT "IT RAINS AND YOU GET NO CUSTOMERS" 

746 PRINT "YOU EARN NO MONEY - CHOOSE ANOTHER JOB" 

750 F = 1 

755 GOTO 340: 

765 PRINT "BUSINESS IS BOGGING" 

766 PRINT "YOU ONLY EARN $18.00" 

770 E=E + 18 

775 GOTO 340 _— 

780. PRINT “SOME CUSTOMERS ARE UNHAPPY WITH: STREAKED 
WINDOWS" 

781 PRINT "YOU ONLY CAN CHARGE $1.25. PER CAR" 

785 E=E + 20.75 

790 GOTO 340 

800 REM *x INSTRUCTIONS FOR: GAME 

G05 PRINT "YOU HAVE 6 WEEKS TO EARN $145 FOR A SKI 
WEEKEND” 

810 PRINT “YOU HAVE A CHOICE OF 3 JOBS" 

815 FOR J=1 703 


820 
821 
825 
826 
830 
e35 
840 
845 
999 


GOSUB 400 
PRINT 
NEXT J 


FRINT “INPUT THE JOB NUMBER 1 - 3 TQ CHOOSE A JOB" 


PRINT “IF YOU WORK HARD AND HAVE A LITTLE LUCK" 
PRINT "YOU WILL HIT THE SLOPES IN 6 WEEKS" 
FRINT "HAPPY HOLIDAYS" 

GOTO 130 

END 


Note: This is a typical computer game. You can write one like this 


with the programming statements you learned in the earlier 
chapters. | 


Lines 100-120: Allows a person familiar with this game to 
skip the instructions. 


Lines 130-145: Initializes (sets the starting values of) the vari- 
ables used in the game. 

Lines 150-210: Gets job choice and branches to that job in 
program. 

Lines 500-599: If player chooses the paper route, the com- 
puter randomly determines the money earned. 

Lines 600-685: If player chooses baby-sitting, the computer 
randomly determines the money earned. 


Lines 700-790: If player chooses the car wash, the computer 
randomly determines the money earned. 


Lines 800-825: Prints the instructions. 
Lines 826-845: Player won, prints congratulations. 


VARIABLE LIST 


T—Total amount needed to earn for vacation 
W—Week number 


E—Money earned so far 

J—dJob number input | 

F—Used to control player’s options; if F=1 the player has to 
change jobs 

R—Random number determining outcome for each week 


Special credit to Bill Rehor and Slaton Lipscomb 
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BACKPACK 


You: are.in-a backpack race across ; the. Sierras. In your pack, you 
have 5 days of food and a canteen of water. See if you can be the 
first hiker at the finish line! 

You can add other obstacles to this game if you want to make it 
really tough. 


SAMPLE RUN 


BACKPACK RACE - 
WANT INSTRUCTIONS ?Y 
YOU ARE IN A SO MILE CROSS-COUNTRY BACKPACK RACE 
YOU START WITH 5S DAYS OF. FOOD AND 1 DAY OF WATER 
YOU CHOOSE YOUR HIKING SPEED EACH DAY AS FOLLOWS 
1 - HIKE LESS THAN 10 MILES 
2 —- HIKE. 10 MILES 
3 - HIKE MORE THAN 10 MILES 
4 ~ STAY IN CAMP 
YOU LOSE AND HAVE TO RADIO FOR HELP IF 
YOU GO WITHOUT WATER FOR 2 DAYS 
OR YOUR FOOD SUPPLY IS LOW FOR 2 DAYS 
DAY 1 
CHOOSE YOUR SPEED?S 
HIKING AT THE RATE OF 11 MILES/DAY 
YOU ‘TAKE THE WRONG TRAIL. - LOSE 2 MILES 
YOU MEET OTHER HIKERS - THEY GIVE You FOOD AND WATER 
AFTER A HARD DAY, YOU MAKE CAMP 
YOU MADE 9 MILES TODAY. 
YOU HIKED 9MILES TOTAL” 
YOU SLEPT WELL - READY FOR A GOOD DAY OF HIKING 
DAY 2 . 
CHOOSE YOUR SPEED?2 
HIKING AT THE RATE OF 10 MILES/DAY 
YOU TAKE THE WRONG TRAIL -- LOSE :2 MILES 
YOU FIND A SHORTCUT — GAIN 2 MILES 
AFTER A HARD DAY; YOU MARE CAMP 
YOU MADE 10 MILES TODAY 
YOU HIKED 19MILES TOTAL 
YOU SLEPT WELL. — READY FOR €& GOOD DAY. OF. HIKING: 
DAY 3 
CHOOSE YOUR SPEED?3 
HIKING AT THE RATE OF 14 MILES/DAY 
YOU FIND A SHORTCUT - GAIN 2.MILES. _. 
YOU CROSS.A STREAM AND FILL YOUR CANTEEN- 
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AFTER A HARD DAY, YOU MAKE CAMP 
YOU MADE 16 MILES TODAY 


YOU 


HIKED 35MILES TOTAL 


YOU SLEPT WELL — READY FOR A GOOD DAY OF HIKING 


DAY 


4 


CHOOSE YOUR SPEED%?2 

HIKING AT THE RATE OF 10 MILES/DAY 

YOU FIND A SHORTCUT - GAIN 2 MILES 

YOU TAKE THE WRONG TRAIL - LOSE 2 MILES 
AFTER A HARD DAY. YOU MAKE CAMP 

YOU MADE 10 MILES TODAY 


YOU 


HIKED 45MILES TOTAL 


BEAR CARRIES OFF YOUR PACK - LEAVES YOUR CANTEEN 


DAY 


a 


CHOOSE YOUR SPEED?S | 
HIKING AT THE RATE OF 12 MILES/DAY 


you 


CROSS A STREAM AND FILL YOUR CANTEEN 


YOU TAKE THE WRONG TRAIL —- LOSE 2 MILES 
AFTER A HARD DAY, YOU MAKE CAMP 
YOU MADE 10 MILES TODAY 


YOu 


HIKED SSMILES TOTAL 


CONGRATULATIONS! ! YOU REACHED THE FINISH LINE!! 


YOU 


WON -— FIRST PLACE!! 


WANT TO TRY AGAIN?N. 


PROGRAM LISTING 

95 DIM AS(1) 

100 PRINT "BACKPACK RACE" 
105 PRINT "WANT INSTRUCTIONS"; 
110 INPUT Ag 

115 IF A® = “"Y" THEN 450 

120 F=5 

122 G = 0 

125 A= 1 

130 W = 1 

is5 D=5 

140 M = 0 

1445 S5=0 

iSO E = 0 

iSS PRINT "DAY "sA 

1460 A=A+1 

185 PRINT “CHOOSE YOUR SPEED"; 
190 INPUT J 

195 ON J GOTO 200,215; 230, 300 
200 LET S = INT ¢( RND (1) * @ + 4) 
205 FRINT "HIKING AT THE RATE OF ":S;"MILES/DAY" 
210 GOTO 350 

215 LETS = 10 
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220 PRINT "HIKING AT THE. RATE OF “3S3" MILES/DAY" 

225 GOTO 350 

230 LET S = INT (¢( RND (1) ¥# 15 + 1). 

235 IF S < 11 THEN 230 

240 PRINT "HIKING AT THE RATE OF "3S;" MILES/DAY" 

245 LET R= INT ¢ RND (1) # 6 + 1) 

250 ON R GOTO 255,270, 350, 350, 350,350 

235 PRINT "GET SLISTERS - ONLY MAKE 4 MILES” 

260 S = 4 

265 GOTO 470 

270 PRINT "SLIP ON A LOG - LOSE PACK IN STREAM" 

275 F=0 

280 GOTO 470 

300 LET S = 0 

305 PRINT "STAYING IN CAMP TODAY" 

310 LET R = INT ¢ RND (1) kK 3 + 1) 

315 ON R GOTO 320,330, 485 

320 PRINT “RANGERS ARRIVE AND CARRY YOU OUT" 

325 GOTO 765 | 

330 PRINT “YOU RECUPERATE QUICKER THAN YOU THOUGHT" 

335 PRINT "YOU CAN HIKE 4 MILES TODAY” 

340 S = 4 

345 GOTO 350 

S50 REM xx*WHAT HAPPENS TO YOU DURING YOUR DAY 

355 FOR I = 1 TO 2 

360 LET R= INT ¢(.RND (1) * & + 1) 

365 ON FR GOTO 370,385, 400, 415, 430,450 

370 PRINT "YOU TAKE THE WRONG TRAIL - LOSE 2 MILES 

375 S$=S8- 2 ) 

380° GOTO 465 . 

385 PRINT “YOU FIND A SHORTCUT - GAIN 2 MILES" 

3970 S= S + 2 

395 GOTO 465 

400 PRINT "THE TRAIL’ IS WASHED OUT - LOSE 4 MILES" 

405 S=S - 4 

410 GOTO 465 Lo 

415 PRINT "YOU CROSS A STREAM AND FILL YOUR CANTEEN” 

420 W= 1 

421 £ = 0 

425 GOTO 465 . 

430 PRINT "YOU SLIP OFF THE TRAIL - HURT YOUR LEG" 

435 PRINT "YOU CAN ONLY HIKE 4 MILES” 

440 S = 4 

445 GOTO 485 oo 

450 PRINT. “YOU MEET OTHER HIKERS - THEY GIVE YOU FOOD 
AND WATER" 

455 Fs 

460 W = 

461 E = 


O = Ch 
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462 G = 0 


465 
4790 
4735 
460 
485 
490 
495 
300 
SOS 


NEXT I 
PRINT “AFTER A HARD DAY, YOU MAKE CAMP" 
IF S > O THEN 485 


S$ =0 
M=M+S 


PRINT "YOU MADE "3Ss"" ‘MILES TODAY" 
PRINT “YOU HIKED "3M;"MILES TOTAL" 
IF M > = SO THEN 720 
D- 1 
F- 1 
IF F + 1 > = D THEN 540 
G OO THEN 525 
= 1 
GOTO S35 
PRINT "YOU RAN GUT OF FOOD" 
B0TO 70S 
PRINT “YOU ARE RUNNING LOW ON FOOD -— BETTER SFEED 
UF TOMORROW" 
IF S > 6 THEN 585 
PRINT “YOU HIKED LESS THAN 7 MILES TODAY" 
PRINT "YOU MUST MAKE A DRY CAMP AND DRINK FROM YOUR 
CANTEEN" 
IF W > 0 THEN 575 
PRINT "WHOOPS - YOU DON’T HAVE ANY WATER IN YOUR 
CANTEEN! !" 
IF & = 1 THEN 705 | 
PRINT "YOU HAVE TO GET WATER TOMORROW OR YOU LOSE" 


E = 1 


E=a0 


LET R = INT ( RND (1) & 6 + 1) 

ON R GOTO 595, 610, 640, 640, 640, 640 

PRINT "BEAR CARRIES OFF YOUR PACK -— LEAVES YOUR 
CANTEEN" 


FEHO 


GOTO 155 


PRINT “SQUIRRELS GET INTO YOUR PACK - EAT 2 DAYS 
Or FOOD" 


FeF-2 


GOTO 155 | 

PRINT “YOU SLEPT WELL - READY FOR A GOOD DAY OF 
HIKING" 

GOTO 155 | 
PRINT "YOU ARE IN A SO MILE CROSS-COUNTRY BACKPACK 
RACE 
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655 PRINT "YOU START WITH S DAYS OF FOOD AND 1 DAY—-OF 


WATER" . 

660 PRINT “YOU CHOOSE YOUR HIKING SPEED:EACH DAY AS 
FOLLOWS" 

665 PRINT " 1 - HIKE LESS THAN 10 MILES" 

670 PRINT 2 - HIKE 10 MILES” 

675 PRINT 3 - HIKE. MORE THAN 10 MILES" 

680 PRINT 4 --STAY IN CAMP” 


490 PRINT "YOU LOSE AND HAVE 70 RADIO FOR HELF IF” 
695 PRINT "YOU. GO WITHGUT WATER FOR 2 DAYS" 

596 PRINT "OR YOUR FOOD SUPPLY IS LOW FOR 2 DAYS" 
700 GOTO. 120 

705 REM **HAVE TO: DROP OUT OF RACE 

710 PRINT "RADIO FOR HELP, YOU AREN’T GOING TO MAKE IT” 
715 GoTo 765 
720 REM kkKYOU REACH THE FINISH LINE 

725 PRINT "CONGRATULATIONS! ! YOU REACHED THE FINISH 
. LINE! !" . 

730 R = INT ¢( RND (1) & 3). 

735 KR =R * 10 

740 IF R > O THEN 755 

745. PRINT “YOU WON — FIRST PLACE!.!" 

750 GOTO 765 

755 PRINT "THERE ARE “s:R:"” HIKERS AHEAD OF you" 
760 PRINT "BETTER LUCK NEXT TIME” 

765 PRINT “WANT TO TRY AGAIN"; 

770. INPUT At 

775 IF AS = "Y° THEN 100 

780 END 


Note: Notice: that different things can happen depending on how 
fast the hiker chooses to travel. 


VARIABLE LIST 


F —Days of food left — starts with 5 
"W —Water in. canteen — starts with 1 

D_—Days left to hike 

M —Total miles traveled 
—Miles traveled during the current.day 
—Flag used to. control options, if T>0, program specifies speed 
—Hiking speed input 
—Set to I if player runs out of water. If player is out of water for 
_ 2-days.in a row, forces player to radio for help. 

G —Set to 1 if player. runs out of food. Forces player to radio for 

help if player is out of food for 2 days in a row. 
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Mod 


APPENDIX A 


Differences Between the Versions of BASIC 


BREAK KEY Every computer has a break—or program 
interrupt—key. However, some. use a different name, 
or require a combination of keys. Use the program- 
mer’s reference-manual included with your computer to 
determine what it uses. In this text, we have adopted 
the convention of referring to this key as the break key. 


RANDOM NUMBER FUNCTION (RND) The format for 
this function varies. The Apple, HP-2000, Atari, Os- 
born and IBM use RND(1), the TRS-80 uses RND(O), 
and the TI uses RND. The Osborn and.IBM computers 
also require the statement RANDOMIZE in the begin- 
ning of the program in order to get a different series of 
random numbers each time the program is run. 


PRINT statement using ; (comma) or ; (semicolon) The 
spacing produced by the , and the ; varies with each 
version of BASIC. Therefore, some ‘of the programs, 
such as MVP in Chapter 10, which print a heading and 
columns of numbers, may not line up on your com- 
puter as shown in the sample output. Experiment with 
your own computer to determine the proper spacing. 


IBM BASICA, Osborn CBASIC, BASIC-Plus and Altair Ex- 
tended Basic These versions of BASIC allow string 
arrays. The programs in this text use standard BASIC 
which does not have string arrays. In order to run these 
programs, leave out the string variables in the DIM 
statements. 
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Atarti-BASIC Does not have a TAB function. You can 
convert programs that -use this function as follows: 
a) replace TAB(10);“*” 
-with- 
PRINT “(10 spaces)”;“*” 
b) replace TAB(W);“*” 
-with- _ 
FOR I= 1 TO W-1 
PRINT (t 4 ” 
NEXT | 
‘PRINT 66.8 99 


TI-BASIC _— Does not allow.use of DIM:statement with string 
variables. In order to run the programs in this text, sim- 
ply-eliminate the string variables in the DIM statement in 
each program. 

—Does not have string functions needed in order to 
combine strings. Therefore,- the following programs in 
Chapter 5 cannot be run on the TI: 

RHYME 
AUTHOR 
Radio Shack—TRS-80 Color BASIC Does not use the 


word LET in assignment statements. Therefore, leave 
this word out when entering these statements. For 


example: | 
Instead of: LETA=B + 1 
Use: A=B +1 


HP-2000 BASIC _ The ‘format for the’ multiple GOTO 
statement is different from the one used in the pro- 


grams in this text. 
Instead of: ON X GOTO line #, line*,. etc 
Use:. GOTO.. X OF line*, line#,,. .etc 
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MURE CAsIG THAN AEG 


KIDS! Write your own computer games! 
PARENTS! Your kids can show you how! 


TEACHERS! Use this book as a text for programming 
classes! 


There’s so much you can do on a computer—once you 
know how. This easy-to-follow guide can serve as an 
introduction to any computer which uses the BASIC 
programming language. BASIC FUN begins with the 
most simple programs for beginners and progresses to 
more difficult programs for expert programmers. 
There's everything from drawing a rocket ship that 
blasts off your video terminal to figuring out time differ- 
ences around the world, and calculating your favorite 
ballplayer’s batting average to teaching your comput- 
er a magic trick. These programs are for anytime, any- 
where —home and school— and anybody who's ever 
been interested, curious, or fascinated by computers. 
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